Select Code to Download

G0001,G0001,2010,GMC,ACADIA,/,33410.00
G0002,G0002,2010,GMC,ACADIA,/,32615.00
G0003,G0003,2010,GMC,ACADIA,/,33010.00
G0004,G0004,2010,GMC,ACADIA,/,32615.00
G0005,G0005,2010,GMC,ACADIA,/,33410.00

!/usr/bin/perl

...
}

close($fh);