The IP address you supply the ping command with can have a leading zero or multiple leading zeros and they will be ignored by the ping command. This is an example. [email protected]:~$ ping 192.168.00001.00002 PING 192.168.00001.00002 (192.168.1.2) 56(84) bytes of data. 64 bytes from 192.168.1.2: icmp_seq=1 ttl=64 time=0.012 ms 64 bytes from 192.168.1.2: icmp_seq=2 ttl=64 …

#!/usr/bin/perl   use warnings;   use Net::Ping;   # code source: http://www.perlmonks.org/?node_id=943892 # More: http://stackoverflow.com/questions/3960595/how-can-i-ping-a-host-with-a-perl-one-liner-with-netping   #$| = 1; print "Please type a host to check..n"; $host = <>;   if (length($host) < 3) { print "You did not type a host!n"; exit(0); }   my @proto = ("tcp", "udp", "icmp", "stream", "syn");   foreach …