#!/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);
}