programming-examples/perl/Network/The getnetent function steps through the file _etc_networks, which lists the names and addresses of the networks your machine is on.pl

# The syntax is (name, altnames, addrtype, net) = getnetent(); 

#!/usr/local/bin/perl 

while (($name, $altnames, $addrtype, $rawaddr) = getnetent()) { 
    @addrbytes = unpack ("C4", $rawaddr); 
    $address = join (".", @addrbytes); 
    print ("$name, at address $address\n"); 
}