package B;
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&b);
use strict;
use A;

sub b;

sub b {
 a;
}

1;