Help for this page

Select Code to Download

Select or download this

use strict;
use Socket;

...

print "address $addr has the following names:\n";
print "\t$_\n" for ($name, split / /, $aliases);

Select or download this

address 172.17.0.1 has the following names:
        host1.example.com
        host2.example.com
        host3.example.com
        host4.example.com
        host5.example.com