I like the full confession myself rather than croak. Sure you get some cake you may not want to eat but you get the whole cake!

use Carp;

hello();

sub hello { again() }
sub again { my_friend() }
sub my_friend { I() }
sub I { called() }
sub called { to_say()}
sub to_say { confess('Goodbye, I died') }

__DATA__
Goodbye, I died at script line 10
    main::to_say() called at script line 9 
    main::called() called at script line 8 
    main::I() called at script line 7
    main::my_friend() called at script line 6
    main::again() called at script line 5
    main::hello() called at script line 3
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print