#! /usr/bin/perl -w
use strict ;
use Mail::Sendmail;
use diagnostics ;

open (PING, '+> C:\PING\PING.TXT') or die "Can't create file; $!" ;
# intentionally clobbering file

my $pingstat = 0 ;
my $ping = `ping -t 132.163.4.101` ;

until ($pingstat) {
  $ping ;

} else {

  $pingstat = 1 ;

} my %mail = ( To   =>   'lmoran@wtsg.com',
          From =>   'ellem@opt_online.net',
          Subject =>"The PING is dead!",
          Message =>"Go read your PING log"
          );

format PING =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ping
.