sub new {
    my $class = shift;
    my $self = $class->SUPER::new();
    $self->{SALARY} = undef;
    $self->{ID} = undef;
    $self->{START_DATE} = undef;
    bless ($self, $class); # reconsecrate
    return $self;
}

##</code><code>##

my $emp = Employee->new;

##</code><code>##

my $self = $class->SUPER::new();