Select Code to Download

file-1:                     file-2
1000 - foo                  2000
...
3000 - fubar                .... 
...                         990000 
1000000 - heck

use autodie qw(open close);

...

close $fip; 
close $fop;

use autodie qw(open close);

...
}

close $fip;