open (IN, "<k:\\apps\\mswmon\\check.out")|| die "Cant open input";
#open (IN, "<check.out")|| die "Cant open input";

open (LOGT, ">>k:\\apps\\mswmon\\mswmon.log");
# open (LOGT, ">>mswmon.log")|| die "Can't open log file";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$mon=$mon+1;

while (<IN>) {
  $count++;}


if ($count > 200) {
 system "net send  Check Hub Mimesweeper- $count messages in pending queue";
 system "net send  Check Hub Mimesweeper- $count messages in pending queue";
 system "net send  Check Hub Mimesweeper- $count messages in pending queue";
}

print LOGT "Process ran $mday$mon$year $hour:$min\n";
close LOGT;