package B;

use lib '.';

use C qw(c_func);

use Exporter qw(import);

our @EXPORT_OK = qw (b_func);

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

1;