Help for this page
$ perl -MData::Dumper -e'print Dumper $_ for (gethostbyname $ARGV[0])[ +0,1]' www.google.com $VAR1 = 'www.l.google.com'; $VAR1 = 'www.google.com';
PUSHs(space_join_names_mortal(hent->h_aliases));