tina@tox:~/develop/perl> cat taint.pl 
#!/usr/bin/perl -wT
print "test\n";
tina@tox:~/develop/perl> ./taint.pl 
test
tina@tox:~/develop/perl> perl taint.pl 
Too late for "-T" option at taint.pl line 1.