#!/usr/bin/perl
use warnings;
use strict;
use Net::Ping;

if ( @ARGV != 2 ) {
    print "ipiterator <startip> <endip> \n";
    exit 0;
    }

my ( $start, $end ) =
    map unpack( 'N',  pack 'CCCC', split /\./ ),
    @ARGV;

for my $count ( $start .. $end ) {
    my $ip = join '.', unpack 'CCCC', pack 'N', $count;
    print "checking ip: $ip";

    my $p = Net::Ping->new( 'icmp', 2 );
    print ' ping success' if $p->ping( $ip );
    $p->close();

    print "\n";
    }