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