#! /usr/local/bin/perl -w                                
                                                         
use strict;                                              
use Net::Ping;                                           
                                                         
my $IPBlk;                                               
my $FirstOctets = "10.0";                                
my @ValidOctets = (1, 5, 7);                                
     

foreach my $ThirdOctet (@ValidOctets) {
	my $sbnt = "$FirstOctets." . "$ThirdOctet" . ".0";
	print "Pinging: $sbnt\n";
	my $p = Net::Ping->new();
	if ($p->ping("$sbnt") ) {
		print "host exists\n";
	} else {
		print "Host does not exist\n";
	}
	print "$?\n";
}