This is taken from perlfaq7
sub is_tainted{ return ! eval {join('',@_),kill 0;1;}; } [download]
Can anyone explain how the above subroutine checks for tainted data?
In reply to Tainted variable by Eureka_sg