Not that you'd want to in this case, but you could use select() to set the output filehandle.

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

open(FILE, ">/tmp/blah") || die "Can Not Open File\n";

my $oldfh = select(FILE);  # $oldfh stores the original filehandle
                           # and FILE becomes the current filehandle
                           # for output

for (my $n = 1; $n < 10; $n ++) {
                           # use backticks as noted elsewhere
    print `ping -c 1 192.168.1.$n`;
}

select($oldfh);            # select the original filehandle,
                           # just for neatness
close (FILE);
[download]

It's not really worth using here... but it's nice to know it's there.

- FrankG

Updated - changed system to print in for loop per Re: Re: Not writing to file
thanks to dws