sub new_worker
{
    my $class = shift;
    die "Use the copy constructor!\n" if ref $class;

    my $self = {
        name   => "John Doe",
        age    => 32,
        @_ ,
    };

    return bless $self, $class;
}