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

use strict;

print "Please enter the third octet for scannin': ";
my $octet3 = <>;
chomp $octet3;

open(LOG, ">log.txt") || die "Couldn't open log file: $! \n";

for(my $x = 0; $x < 20; $x++){
	open(PINGIN, "ping 10.32.$octet3.$x -w 5 |") or 
		die "Couldn't pull that one off: $! \n";
	while(<PINGIN>){
		warn "Logging activity for 10.32.$octet3.$x \n";
		print LOG $_;
	}
}

close PINGIN;
close LOG;
open(LOG, "log.txt") or die "$!";
open(UNAVAILABLE, ">ips.txt") or die "$!";

while(my $line = <LOG>){
	if($line =~ /^64 bytes from ([0-9.]):/){
		my $ip = $1;
		print UNAVAILABLE "$ip is unavailable.\n";
	}
}

close LOG;
close AVAILABLE;

--------------------------------------------------------------------