my $bob = Manager->new_worker(name   => "Bob",
                   age => 40);
print $bob,"\n";
# Worker=HASH(0x15debec)

##</code><code>##

sub new_worker { ## Constructor.
    my $invocant = shift;
    # my $class = ref($invocant);
    my $self = {
    name   => "Jhon Do",
    age    => 32,
    @_ ,
    }; 
    bless $self, $invocant;
    return $self;
};