% perl -MSocket -e'defined (my $a=inet_aton("garbage")) or die"dead"; print unpack "V", $a;'
dead at -e line 1.
% perl -MSocket -e'defined (my $a=inet_aton("127.0.0.1")) or die"dead"; print unpack "V", $a;'
16777343