Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close FILE;

print "Data written to $file OK!";

# here it is with comments (not updated from original draft)
# there are two inconsistencies in what you ask for both
...

# let the user know we are done
print "Processed $file OK!";

0 HEAD 
1 SOUR REUNION
...
1 CHIL @I1@
0 TRLR

0 HEAD 
1 SOUR REUNION
...
1 CHIL @I1@
0 TRLR