use Win32::EventLog;
open (EL,">eventlog.txt");
$handle=Win32::EventLog->new("NTDS", $ENV{ComputerName})
        or die "Can't open Application EventLog\n";

...