#!/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;
}