Select Code to Download

my $file = $self->{Filename}; # This is detainted early on
my $new_ext = ".new";         # This cannot be tainted

my $new = $self->{Filename} . $new_ext;  # Not tainted
open NEW, "> $new" or die "Couldn't open $new : $!";

my $file = $self->{Filename}; # This is detainted early on
my $new_ext = ".new";         # This cannot be tainted
...
    is_tainted( $file ) ? $file : $new_ext;
}
open NEW, "> $new" or die "Couldn't open $new : $!";

my $file = $self->{Filename}; # This is detainted early on
my $new_ext = ".new";         # This cannot be tainted
...
    is_tainted( $file ) ? $file : $new_ext;
}
open NEW, "> $new" or die "Couldn't open $new : $!";

my $file = $self->{Filename}; # This is detainted early on
my $new_ext = ".new";         # This cannot be tainted
...
    printf STDERR "\$self ( %s )  is\n", ref( $self );
}
open NEW, "> $new" or die "Couldn't open $new : $!";

    $self = { NAME    => $name,
          HEAD    => $TREE->HEAD,
...
          SEC     => $param{sec},
          LIB     => $param{lib},
          VFILE   => $TREE }; # This is the object of interest