my $fh = IO::Socket::INET->new($server) or die "Socket open failed: $^E\n";