4.4BSD/usr/src/contrib/perl-4.036/gettest

#!./perl

    while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
	print $name,' ',$aliases,
	  sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
	last if $i++ > 50;
    }
    <stdin>;
    while (($name,$aliases,$addrtype,$net) = getnetent) {
	print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
    }
    <stdin>;
    while (($name,$aliases,$proto) = getprotoent) {
	print "$name $aliases $proto\n";
    }
    <stdin>;
    while (($name,$aliases,$port,$proto) = getservent) {
	print "$name $aliases $port $proto\n";
    }