sub is_tainted {
 return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
}

##</code><code>##

  $taintModeEnabled = &is_tainted( +(getpwuid(0))[1] );