RosettaCodeData/Task/Stack-traces/Perl/stack-traces.pl

use Carp 'cluck';

sub g {cluck 'Hello from &g';}
sub f {g;}

f;