#!/usr/bin/perl
open(INFILE, "<server") or die("cannot open infile:\n$!");
open(OUTFILE,">ping_output") or die("cannot open infile:\n$!"); 
my @ip_array = <INFILE>;
chomp(@ip_array);
foreach(@ip_array)
 {
  if($_ =~ /\d+.\d+.\d+.\d+/)
     {
       print OUTFILE ("\n\n\n****pinging system: $`****\n\n ");
       print OUTFILE system("ping -i 5 -c 4 $&");
     }
 }