Select Code to Download

my $replacestring = "TOM";
open(my $infile,"<","inputfile.txt") or die $!;
...
}
close $infile;
close $outfile;

my $string = "TOM";
open(my $infile,"<","inputfile.txt") or die $!;
...
}
close $infile;
close $outfile;