Select Code to Download

#!/bin/perl

...

close($in_file);
close($out_file);

rename $output_file $input_file;