#!/usr/bin perl -w
print "Script started\n";
eval {
        $ENV{PATH}, exec("/path/to/perl -wT $0")     #Only works if taint mode off
};

print "Now we're in taint mode!\n";