package Baz;
use Bar;
@ISA = qw(Bar);

sub foo {print "This is method foo\n";}

sub bar {print "This is method bar\n";}

1;