package A;

use Carp;
use strict;
use warnings;
use A::B;

sub sub_a {
    Carp::cluck '...';
    A::B::sub_b();
    }
    1;