package A;
...
use parent 'Foo';
...