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

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