Select Code to Download

#!/usr/bin/perl
use strict;
...
print "$aliases\n";
$dumper->dumpValue(\$aliases);

127.0.0.1    localhost    tf-laptop    my-laptop

$ perl gethostbyname.pl localhost
tf-laptop my-laptop
-> 'tf-laptop my-laptop'