Select Code to Download

#!/usr/bin/env perl 

...
    system ("ping -nqc1 -w 3 -W 3 $dest > /tmp/ping.log") and
        print "### $dest is unreachable\n";
}

#!/usr/bin/env perl 

...
        print "### $dest is unreachable\n";
}
$pinger->close;