#! /usr/local/bin/perl -w

use strict;
use Net::Ping;

my $IPBlk;
my $FirstOctets = "10.0";
my $ThirdOctet;

for ($ThirdOctet = 1; $ThirdOctet <= 25; $ThirdOctet++) {
	$IPBlk = "$FirstOctets." . "$ThirdOctet";
	my $sbnt = "$IPBlk" . ".0";
	my $p = Net::Ping->new();
	if ($p->ping("$sbnt") ) {
		print "host exists\n";
	} else {
		print "Host does not exist\n";
	}
	print "$?\n";
}