Select Code to Download

use File::Replace 'replace2';
 
...
}
close $infh;   # closing both handles will
close $outfh;  # trigger the replace

#!/usr/bin/env perl
use warnings;
...
close $ifh;
close $tfh;
die "Marker not found" unless $found;