Select Code to Download

sub new {
    my $class = shift;
...
    bless ($self, $class); # reconsecrate
    return $self;
}

my $emp = Employee->new;

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