my $CONN = IO::Socket::INET->new(
    Peerhost    => $host,
    Peerport    => 'http(80)',
) or die "Couldn't connect: $!";