or download this
foreach my $logrecord (@errorcheck) {
my $errorcount;
...
system ('page Mike "An error was encountered processing file $logr
+ecord. Check the HelpDeskLog\ERRORS dir for more information."');
#last; here if you don't want to bother Mike more than once
}