####### bar.pl ######################
use Bar;

my $o = Bar->new( age => 23 );

####### Bar.pm ##################
package Bar;

sub new {
    my ($class, %args) = @_;
    my $self = { age => $args{age} }; 
    bless $self, $class;
    return $self;
}

sub age { return $_[0]->{age}; }

1;