Select Code to Download

my $i = 0;
open my $fh, "input_file.txt" or die;
...
close $fh or die;
close $oh or die;
rename "ss.txt", "input_file.txt" or die;