use strict;
use warnings;

use Win32::Event2Log;

my $main_log = $0.'.mainlog.log';
my $last_numbers_log = $0.'.last_numbers.log';
my $sys_errors_log = $0.'.System_err_warn.log';


my $engine = Win32::Event2Log->new(     
                                   interval        => 60,
                                   endtime         => 0,
                                   mainlog         => $main_log,   
                                   verbosity       => 2,
                                   lastreadfile=> $last_numbers_log,               
);

$engine->add_rule (
                    registry => 'System',
                    eventtype=> 'error|warning',
                    source   => qr/./,
                    log              => $sys_errors_log, 
                    name     => 'System errors and warnings',                       
);

$engine->start;