corion$ perl -MScalar::Util=tainted -wE 'my $fn = shift; say tainted($fn)' foo
0
corion$ perl -T -MScalar::Util=tainted -wE 'my $fn = shift; say tainted($fn)' foo
1