Select Code to Download

#!/usr/bin/perl
use strict;
...
$ perl test.pl
127.0.0.1 is reachable.
10.0.0.10 is NOT reachable.

#!/usr/bin/perl
use strict;
...
$ perl test.pl
localhost [ip: 127.0.0.1] is alive (packet return time: 0.11 ms)
10.0.0.10 [ip: 10.0.0.10] is not alive (packet return time: 2002.36 ms
+)