You have to use that new global inside an eval for backwards compatibility:

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