Your immediate problem is that you're using the one-argument form of bless. You need to use the two-argument form to get inheritance working. (The second argument defaults to the package the constructor is in.)

Your real problem is that you are confused about what's going on in a Perl constructor. I would have written your constructor like so:

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;
}
[download]

You don't need any ref() crud in your constructor. That is cargo-cult programming and merlyn has posted enough diatribes about it, as have many other monks. If you want a copy-constructor, then create a clone() method. (You'll notice I don't allow this method to be a copy-constructor.)