use strict;
use warnings;


package Event; 
    sub new {
        my ($class) = @_;
        my $self = {};
        $self = {
            'Event Type'        => 'Windows 2003',
        };

        bless $self, ref($class) || $class;
        return $self;
    }

 
package Security; 
    our @ISA = qw (Event);
    @PARENT::ISA = @ISA;
    
    sub new {
        my $class = shift;
        my($self) = $class->PARENT::new(@_);        
        $self->{'EventLog'} = 'Security';
        return (bless($self, $class));                                  # return object
    }

1;