#!/usr/bin/perl
    use Win32::EventLog;
    use strict;
    my ($Event, $filename, $directory);
    $directory = 'c:/EventLogs/';
    for ('System', 'Security', 'Application')	{
    	$Event = new Win32::EventLog ("$_", "");
		$filename = $directory . $_ . '.evt';
    	$Event->Clear($filename)or die "Couldn't clear eventlogs: $!";
		
	    }