Command Center

#!/usr/bin/perl -w

use strict;
use Net::Ping;

my $p = Net::Ping->new("icmp");

for(my $i=0; $i <= 255; $i++)
{
     $_="192.168.20.". $i;
        if ($p->ping($_)) {
    print "$_ is alive.\n";
        } else {
    print "$_ is not reachable.\n";
        }
}

sudo ping -s 65507 -f -l 10 -n -Q 0x10 -q -v ip address