use IO::Socket::INET;
use IO::Socket::SSL;
my $arg = shift;

my $sock = IO::Socket::INET->new('quickcheck.vodafone.de:443');
die "Could not create socket: $!\n" unless $sock;
print $sock "GET /bmi/quickcheck.vodafone.de HTTP/1.1\r\n";
print $sock "Host: 1.1.1.1\r\n";
print $sock "X-Online-Host: 1.1.1.1\r\n";
print $sock "Connection: Keep-Alive\r\n";
print $sock "User-Agent: Mozilla/5.0 (Linux; Android 6.0.1; GT-I8190 Build/MOB31K; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/51.0.2704.106 Mobile Safari/537.36\r\n\r\n";
print $sock "GET   HTTP/1.1\r\n\r\n";
print while <$sock>;
close($sock);