Select Code to Download

use strict;
use warnings;
...

my ($ret1,$delay1,undef) = $ping->ping($local);
print "($ret1,$delay1)\n";