Select Code to Download

        my $input_filename= "$ofn.txt";
        open(IN,$input_filename) or die "Can't open input file '$input
+_filename': $!\n";
        my $output_filename= "$nfn.txt";
        open(OUT,'>', $output_filename) or die "Can't open output file
+ '$output_filename': $!\n";