in reply to Re: detect taint mode in Perl 5.6.1
in thread detect taint mode in Perl 5.6.1

http://search.cpan.org/dist/perl-5.6.1/pod/perlfaq7.pod#How_can_I_tell_if_a_variable_is_tainted?
sub is_tainted { return ! eval { join('',@_), kill 0; 1; }; }