$logdir= "d:/logs/";
$logfile= "sysmonitor.log";
$errlst= "errorlist.txt";						

&FltErr;

sub FltErr	{
open (FH, "< $errlst");
my @errors = <FH>;
chdir($logdir);
open (msg, $logfile );
open (FILEHANDLE,">NTDTM.txt");
while (<msg> ) { 
	chop($_);	
	foreach my $error (@errors) {
		chomp ($error);
		if ($_ =~ $error) {
			print FILEHANDLE "$_ \n";
			print "$_ \n";
		}
	}	
}
close (FILEHANDLE);
}
&Mail;


sub Mail	{
`blat NTDTM.txt -t user\@email.com -f user\@email.com -s "Windows DTM logs"`;