use strict;
use warnings;

TEST::first(1);                         # 4

package TEST;
use Carp qw/carp cluck longmess shortmess/;

sub first {
    second(2);                          # 10
}

sub second {
    # local $Carp::Verbose=1;
    carp "Carp Second";
    cluck "Cluck Second";               # 16
    print shortmess("Shortmess Second");
    print longmess("Longmess Second");
}