use Devel::Trace;
$Devel::Trace::TRACE = 1;   # Enable
$Devel::Trace::TRACE = 0;   # Disable