$ perl -MData::Dumper -e'print Dumper $_ for (gethostbyname $ARGV[0])[0,1]' www.google.com
$VAR1 = 'www.l.google.com';
$VAR1 = 'www.google.com';

##</code><code>##

PUSHs(space_join_names_mortal(hent->h_aliases));