$ perl -MData::Dump -E " gethostbyname(q(blocalhost)); dd $!,int$!,$?, grep( { $!{$_} } keys %! )  "
("No such host is known.", 11001, 11001)