my $i;
while (1) {
    my ($pack,$file,$number,$sub) = caller($i) or last;
   printf "%02d| \&$sub called at $file line $number\n",$i++;
}