package Person {
    sub new{ my $p = shift; bless { @_ }, $p }
    sub name{ $_[0]->{name } }
    sub title{ $_[0]->{title} }
}