February 9, 2001
Solution Symposium
Page 28
hp e3000
perl
programming
sockets - an object-oriented client
example
#!/PERL/PUB/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
Proto = 'tcp',
PeerAddr = 'localhost',
PeerPort = 'daytime');
$timestamp = <$remote>;
print "$timestamp\n";
close($remote);
