Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        print;
    }
}

Temp2 B code1 2
Temp3 A code1 4
Temp3 B code1 4
Temp3 C code1 4