Select Code to Download

Gname   G1      G1      G1      G1      G2      G2      G3
A       W       W       M       W       W       W       M
...
A 1 0 1
B 1 2 2
C 2 1 0

#!/usr/bin/perl -w

...
close(OUTD);
print "Printing $outdata file done.\n";