$Devel::Trace::TRACE = 0; #### $ PERL5OPT=-d:Trace sudo /etc/init.d/httpd restart #### $Devel::Trace::TRACE = 1; # some buggy code $Devel::Trace::TRACE = 0;