sub X
{
    my $self = shift;

    print "\$self = $self\n";
    $self->{age} = 17;
    print "\$self = $self\n";
}