#!/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);