It's doable, but there's no real elegant solution. Take a look at Acme::use::strict::with::pride, which turns on strict everywhere. (Actually it turns it on at the top of each file - there's nothing to stop the file including no strict later on.) It does this by installing a coderef into @INC which rewrites modules when they get loaded.

Personally, I'd take a different approach. I'd cheat by taking advantage of the fact that nearly all code everywhere uses strict, and hook onto strict's import function. Save the following code as Taint/Obnoxious.pm:

package Taint::Obnoxious;
use strict;
use re ();
my $orig_import = strict->can('import');
*strict::import = sub {
  re->import('taint');
  goto $orig_import;
};
[download]

Now, running your program with perl -MTaint::Obnoxious should do the trick. All code that uses strict will also automatically use obnoxious tainting.

Maybe perlrun needs a new -TT option, obnoxious taint...

Maybe it should be called  -P for putrid: make anything tainted stink up the entire establishment.

Thanks tobyink, I did see that in my search but I found it unsatisfactory

Ok, this will add use re 'taint'; for all modules -- kinda like a source filter -- probably doesn't play well with PAR :)

also makes printing on STDOUT die if tainted

$ perl -I. -Tle "use retaint; retaint::foo(); print 123; print substr 
+$ENV{PATH}, 0, 1; "
retaint.pm:20: tainted? 1
retaint.pm:21: tainted? 0
123
D

$ perl -I. -Tle "use taintall; use retaint; retaint::foo(); print 123;
+ print substr $ENV{PATH}, 0, 1; "
/loader/0xb61cbc/retaint.pm:21: tainted? 1

/loader/0xb61cbc/retaint.pm:22: tainted? 1

123
Insecure dependency in 'print' at -e line 1.
[download]

taintall.pm

retaint.pm