#!C:\Perl\bin\perl.exe 
$i= 0;
while($i <= 6)
{
	$ip= `ping -n 2 138.238.222.$i`;
	$present= `arp -a 138.238.222.$i`;
	open MySTREAM, ">>output.txt";
        print MySTREAM "\n*********************************************  135.$i ********";
	print MySTREAM "$ip";
        print MySTREAM "\n************************ HARDWARE ADDRESS ***";
	print MySTREAM " $present";
$i++;
}
close MySTREAM;