Select Code to Download

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

sub new_worker { ## Constructor.
    my $invocant = shift;
...
    bless $self, $invocant;
    return $self;
};