#### Foo.pm ####
package Foo;

sub new {
    my $self = bless {}, shift;
    my %args = @_;
    $self->{name} = $args{name};
    $self;
}
sub name {$_[0]{name}}

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

sub new {
    my $self = bless {}, shift;
    my %args = @_;
    $self->{age} = $args{age};
    $self;
}
sub age {$_[0]{age}}

1;