% perl -MSocket -e'defined inet_aton("localhost") or die;'
Died at -e line 1.