What you need is a confession.....

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 26
    main::to_say() called at script line 23
    main::called() called at script line 18
    main::I() called at script line 14
    main::my_friend() called at script line 11
    main::again() called at script line 7
    main::hello() called at script line 3
[download]

cheers

tachyon

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