Select Code to Download

#!/usr/perl/bin/perl -w
use strict;
...
   }
}
1;

c1 ct1 p2 d1 12 15 21 91
c1 ct2 p2 d3 15 25 23 93
...
c2 ct3 p1 d1 12 05 23 91
c2 ct1 p2 d2 99 15 21 93
c2 ct2 p1 d1 12 25 24 99

test : d1,c1,12,15,21,91
test : d3,c1,15,25,23,93
...
test : d1,c2,12,05,23,91
test : d2,c2,99,15,21,93
test : d1,c2,12,25,24,99