#!/usr/bin/perl -d:Trace

Devel::Trace::trace('on');  # Enable

print "Hello World\n";

foo();

Devel::Trace::trace('off'); # Disable

foo();

sub foo{ print "Foo\n" }