Select Code to Download

#!/perl/bin/perl -w
# myping.pl
...
  return(~(($chk >> 16) + $chk) & 0xffff);    # Again and complement
}

#!/perl/bin/perl -w
use threads qw(yield);
...
 foreach(@rv){ return "$ip up\n" if /\(0% loss\)/g;
    return "$ip down\n" if /\(100% loss\)/g; }
}