#!/usr/bin/perl -w

use strict ;
use diagnostics ;
use LWP::Simple ;

#this will run a ping to our firewall
#to yahoo.com
#to 132.163.4.101 an NIST Time Server
#and with get the time (UTC)
#run this script piped to text from the prompt

my $ping1 = (`ping XXX.XXX.XXX.XXX -n 1`) ;
my $ping2 = (`ping yahoo.com -n 25`) ;
my $ping3 = (`ping 132.163.4.101 -n 25`) ;           
my $numb  = 51 ;

until ($numb == 1) {
     chomp $numb ;
     $numb -- ;
     
     print "R---------------------------\n" ;
     print $ping1 ;
     print "Y---------------------------\n" ;
     print $ping2 ;
     print "I---------------------------\n" ;
     print $ping3 ;
     print "T---------------------------\n" ;
     getprint "http://132.163.4.101:13 \n" ;
     print "E---------------------------\n" ;
}