Select Code to Download

IM,BEN01,D,0
IM,BEN02,D,0
...
IM,BEN08, ,0
IM,BEN09, ,0
IM,BEN10,D,0

#!/usr/bin/perl
open(MYINPUTFILE, "<funtime.dat");
...
        }
    }
close(MYINPUTFILE);

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

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

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