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