Select Code to Download

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