1N/A# This subroutine returns true if its argument is tainted, false otherwise.
1N/A
1N/Asub tainted {
1N/A local($@);
1N/A eval { kill 0 * $_[0] };
1N/A $@ =~ /^Insecure/;
1N/A}
1N/A
1N/A1;