Select Code to Download

use strict;
use warnings;
...
close $inFile;

print " > $first.txt\n" if defined $first;

type D BEN01.txt  > BEN01.txt
type D BEN02.txt BEN03.txt BEN04.txt BEN05.txt  > BEN02.txt
type C BEN06.txt BEN07.txt BEN08.txt BEN09.txt  > BEN06.txt
type D BEN10.txt  > BEN10.txt