#!/usr/bin/perl -w
my $dir="/home/lcollins";
system "/bin/cat /dev/null > $dir/miss";
open (HOSTS,"$dir/ClockIP") or die "Can't open HOSTS $!";
open (MISS,">>$dir/miss") or die "Can't open miss $!";
my $miss=<MISS>;
while (<HOSTS>) {
chomp;
@args = ("/bin/ping $_ -c 2");
system(@args) == 0
                or print MISS "$_\n"
}
print "Done.";