$ perl -MO=Deparse,-p ~/1.pl
sub sub_A {
    use warnings;
    use strict;
    print("sub_A\n");
}
sub sub_B {
    use warnings;
    use strict;
    print("sub_B\n");
}
use warnings;
use strict;
sub_A(sub_B());