my $socket = IO::Socket::INET->new(
    PeerAddr => $host,
    PeerPort => 'https(443)',
    AutoFlush => 1,
    Blocking => 0,
    Proto => 'tcp' ) or die "can't connect to https server";