Select Code to Download

my @keys = qw(CCMT CCOA CDEC CFST CREF CRSP CVEH);
do {
...
       "\n";
    $j += 60;
} while $j <= $l;