sub is_tainted{
return ! eval {join('',@_),kill 0;1;};
}