use File::Copy;
use File::Basename;

@errorcheck = glob ('*.log');
my $error = "ARERR";
my $errorcount = 0;
foreach $logrecord (@errorcheck)
{
	open (LOGFILE, "$logrecord");
	while (<LOGFILE>)
		{
		my $logline = $_;
		if ($logline =~ /$error/)
			{
			$errorcount++;
			}
		}
	if  ($errorcount ne 0)
		{system ('page Mike');}
}
print "$errorcount\n";
close (LOGFILE);