Select Code to Download

use warnings;
use strict;
...
close($outfh) if $outfh;
close($infh);

one 1file1.nest.  1ss
record1a
...
record    1d    2
record    empty
endoffile