use Carp;





sub tst1 {
   carp "bla";
}

sub tst2 {
   tst1()
}

tst2();