package Foo;

sub bar {
    print join( ", ", @_ ) . "\n";
}

package Bar;

our @ISA = 'Foo';

package main;

Foo->bar();

Bar->bar();