Select Code to Download

## Open input file
open(INFILE, "$infile") || die "unable to open input file $infile\n";