$sock = new IO::Socket::INET(
  PeerAddr => "$server",
  PeerPort => 37,
  Proto => 'tcp',
  Timeout => 5
);