my $host='';
my $sock = IO::Socket::SSL->new('PeerAddr'=>'$host',  'PeerPort' => '443', 'PeerProto'=>'tcp', 'TimeOut'=>5) || die "[-]Can't connect to server'";
my $req="GET / HTTP/1.1\r\n
Host: $host\r\n
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:17.0) Gecko/20100101 Firefox/17.0\r\n
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3\r\n
Accept-Encoding: gzip, deflate\r\n
Connection: keep-alive\r\n
Cache-Control: max-age=0\r\n\r\n";
print $req; 
print $sock $req; 
while (<$sock>) {print $_;}