1# This subroutine returns true if its argument is tainted, false otherwise. 2 3sub tainted { 4 local($@); 5 eval { kill 0 * $_[0] }; 6 $@ =~ /^Insecure/; 7} 8 91; 10