Well, I wrote a similar test program for my linux machine to test the status of our network printers. It's a simple snippet of code.

#!/usr/bin/perl -w
use strict;
my $ip = '10.195.16';
open( 'FH' , ">printer_ping");

for ( 30 .. 200 )
{
    my $test = join('.',$ip,$_);
    print "Now pinging $test\n";
    my $output = `ping -c 2 $test`;
    print $output;
    print FH $output;
}
[download]

The nice thing about this code is that it prints both to standard output, and to file, and can be easily modified to print anywhere else.