Perl programming on MPE/iX - February 2001

February 9, 2001
Solution Symposium
Page 27
hp e3000
perl
programming
sockets - a procedural client example
#!/PERL/PUB/perl -w
use Socket;
$proto = getprotobyname('tcp');
$ipaddr = inet_aton('localhost');
$port = getservbyname('daytime', 'tcp');
$address = sockaddr_in($port, $ipaddr);
socket(SOCK, PF_INET, SOCK_STREAM, $proto);
connect(SOCK, $address);
$timestamp = <SOCK>;
print "$timestamp\n";
close(SOCK);