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

$file2 = "/tmp/boxinfo";
open(FILE2, ">$file2");
$file = "/export/monk2b/doc/testboxes";
open(FILE, "$file");
while(<FILE>)
{
my($line) = $_;
chomp($line);
$var1 = `rsh $line cat /proc/cpuinfo | grep "cpu MHz"` ; 
@par1 = split(/\s+/, $var1); 
$var2 = `rsh $line free | grep Mem` ;  
@par2 = split(/\s+/, $var2);
$var3 = `rsh $line cat /etc/issue | grep Kernel` ;  
@par3 = split(/\s+/, $var3);
print FILE2 "$line\t$par1[3]\t$par2[1]\t$par3[1]\n";
}
close(FILE)
close(FILE2)