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

open(FILE, ">/tmp/blah") || die "Can Not Open File\n";
for ($a = 1; $a < 10; $a ++) {
system ("ping -c 1 192.168.1.$a\n");
}

close (FILE);