$Devel::Trace::TRACE = 1;
   # some buggy code
   $Devel::Trace::TRACE = 0;