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 : $!";