Declarative objects in Perl using closures

gistfile1.pl

#!/usr/bin/perl
use strict;

sub create
{
    my ($name, $age) = @_;

    return {
        get_age => sub { $age; },
        set_age => sub { ($age) = @_; },
        get_name => sub { $name; },
        set_name => sub { ($name) = @_; },
        print => sub { print "Hi, I'm $name and I'm $age years old.\n"; },
    };
}

my $a = create('Bob', 12);
$a->{print}->();
$a->{set_name}->('Dora');
$a->{set_age}->(25);
$a->{print}->();