Select Code to Download

  #!/usr/bin/perl -w
  use strict;
...
  $line = <>;
  print "line tainted: ", tainted($line), "\n";
  print "\$0 tainted: ", tainted($0), "\n";

  SV* taintvar() {
    PL_tainted = 1;
...
  sub taintme {
    wantarray ? map($_ .= $tv, @_) : $_[0] . $tv
  }