Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    }

1;
  2. or download this
    use strict;
use warnings;
...
    }

1;
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    print "Processing $oEvent->{'Event Type'} $oEvent->{'EventLog'} ev
+ent.\n";

}
  4. or download this
    my $self = Event->new(@_);
my $self = Event08->new(@_);