sub is_tainted {
   my $taint;
   if ( $] >= 5.008 ) {
      $taint = eval '${^TAINT}';
   }
   else {
      # some work around ...
   }
   $taint;
}