$ perl -MNet::Ping -MData::Dumper -e 'my $retval=pingecho("");print Dumper(\$retval);'
$VAR1 = \undef;