Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
} else {
    print "No, I cannot ping $target\n";
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
}

$ping_obj->close();