package A;

use lib '.';

use B qw(b_func); # load the 'B' package

use Exporter qw(import);
our @EXPORT_OK = qw(a_func);

sub a_func {
    my $str = shift;
    b_func($str);
}

1;