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