#!/usr/bin/perl -w
use strict;
use Net::Ping;

print "Starting Network Monitor...\n\n";
open FH, ">", "net.dat" or die "Error: $!\n";
my $p = Net::Ping->new();

for(;;) {

   $p->ping(xxx.xx.x.xx);
   
}

print FH "Lost connection at ", scalar localtime;
close FH;