[0] Perl> use Win32::EventLog;;
[0] Perl> print $e = Win32::EventLog->new("System", $ENV{ComputerName});;
Win32::EventLog=HASH(0x3a70d90)

[0] Perl> $e->Backup( 'c:\\test\\System.evt' );;
[0] Perl> print $f = Win32::EventLog->new('c:\\test\\System.evt', $ENV{ComputerName});;
Win32::EventLog=HASH(0x3b4b500)

[0] Perl>