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";