#!/usr/bin/perl
use strict;
use warnings;
use Dumpvalue; # Core Module, dumps like the debugger
my $dumper = new Dumpvalue;
my $host = shift;
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($host) or die "Can't resolve $host $!\n";
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'