package Bar;
...
use base qw(Foo);
...