package Bar;

sub new {
    my $name = shift;
    my $foo = shift;

    bless { foo => $foo }, $name;
}

sub show {
    my $self = shift;
    my $foo = $$self{foo};
    print "(bar) Memory: $foo, X: ".$foo->x()."\n";
}

1;