maybe Devel::TraceSubs would help? something like...

use Devel::TraceSubs 0.02;

my $dbg = Devel::TraceSubs->new();
$dbg->trace( 'my::package::here::' );  ## maybe it's 'main::' in your 
+case?
[download]

it should show a pretty good stack trace. please let me know if it helps, or you have problems using it.

~Particle *accelerates*