sub DIE {
  my $i=0; 
  my $buff;

  while (my @info=caller($i++)) { 
        $buff.="$info[3]($info[2]) "; 
 }                

 die $buff;
}