open(FILE, ">/tmp/blah") || die "Can Not Open File\n";
for my $n (1 .. 10) {
  print FILE `ping -c 1 192.168.1.$n`;
}
close (FILE);