#!/usr/local/bin/perl
use IO::Socket;
$site = "ducserv8.duc.auburn.edu";
$sock = IO::Socket::INET->new(
  PeerAddr => $site,
  PeerPort => 25,
  Proto => 'tcp',
  Type => SOCK_STREAM
) or die "Can't create socket!\n";
$bytes = read($sock, $time, 100);
#$time = substr($time, 1);
chop($time);
print "$site thinks the time is $time.\n";