sub DIE { 
  my $i=0; 
 
  while (my @info=caller($i++)) { 
        print STDERR "$info[3]($info[2]) "; 
 }                
  
  print STDERR ": "; 
  printf STDERR @_; 
  print STDERR "\n"; 
 
  exit 1; 
}