From: admin/mfe
Subject: zip
To: admin/mfe
MIME-Version: 1.0
X-Mailer: WinNT's Blat ver 1.8.6e http://www.blat.net
Content-Type: Multipart/Mixed; boundary=BlatBoundary-Yo7hjfnfSSAUIn61Gcd10

--BlatBoundary-Yo7hjfnfSSAUIn61Gcd10
Content-Transfer-Encoding: 7BIT
Content-Type: text/plain; charset=US-ASCII
Content-description: Mail message body

This is a test file.
--BlatBoundary-Yo7hjfnfSSAUIn61Gcd10
Content-Transfer-Encoding: binary
Content-Type: application/msword; name=tryguard.DOC
Content-Disposition: attachment; filename="tryguard.DOC"
X-MCAFEE-GSD-Att: tryguard.DOC
X-NAIMIME-Modified: 1

ÐÏࡱá 
binary contents in this area
--BlatBoundary-Yo7hjfnfSSAUIn61Gcd10--

##</code><code>##

#!/usr/bin/perl

my $EServScanPath = "C:/Program Files/McAfee/Secure Messaging for Domino/bin/EservicesScanner/ScanOut_1.log";
my $CSEFile = "c:/Analysis/CSE/test.com";
print "The install path : $EServScanPath \n";
CreateCSESample();

sub CreateCSESample()
{
	open FR, "<$EServScanPath" or die "Cannot open $EServScanPath \n";
	open FW, ">>$CSEFile" or die "Cannot open $CSEFile \n";
	binmode FR;
	binmode FW;
	my $buffer;
	while (read(FR,$buffer,1024))
	{
		if ($buffer =~ /^X-NAIMIME-Modified/)
		{
			
			print "Nothing to be printed in the file \n";
		}
		
	}
	close(FR);
	close(FW);
}

##</code><code>##

if ($buffer =~ /^30582/)
{
  print "nothing to be printed"
}