use Net::Ping;
use Net::IP;
$|=1;

my( $from, $to ) = @ARGV;

my $p = Net::Ping->new('icmp',2);

for ( my $ip = Net::IP->new( "$from - $to" ) or die
    "error creating Net::IP object:
    ".Net::IP::Error();
    $ip; $ip++ )
{
    print "\n checking ip: ", $ip->ip, "  ";
    print "ping success " if $p->ping($ip->ip);
}

$p->close;