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