Select Code to Download

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

A    12 45    hello
A    10 12    hello
...
E    34 31    black
C    11 41    blue
C    18 12    blue