package B;
    use strict;
    use vars qw/@ISA @EXPORT/;

    use A;
    use Exporter;
    @ISA = qw/Exporter/;
    @EXPORT = qw/foo/;

    sub foo { print "problem is $problem\n" }

    1;