Hello, lovers of the camel.

I'm new to perl and it's blessing stuff to imitate class like functionality made me feel strange I even had to go to the bathroom.

Now, please tell me: what do you don't like, find wrong or strange with this code:

sub Person 
{ 
  my $age = shift || 15;  

  return  
  { 
    printAge => sub 
    { 
      print "Age -> $age\n";  
    }, 

    changeAge => sub 
    { 
      $age = shift  
    } 
  } 
} 

my $p = Person(); 
my $p2 = Person(27); 

$p->{printAge}->(); 
$p->{changeAge}->(30); 
$p->{printAge}->(); 

$p2->{printAge}->();

I'm going to walk my dog, hope to get responses when I'm back. Thanks in advance. Cheers. Be back soon. Thanks again.