Select Code to Download

#INFILE
A
B
C
D

#!usr/bin/perl5.8.8

...

close ($INFILE);
close ($OUTFILE);

Foreach loopA, 
While loopA, While loopA, While loopA, While loopA, Foreach loopB, 
Foreach loopC, 
Foreach loopD,