..>perl script.pl -d . --sql "select concat(GeneID,' ',(Tp1+tp2+tp3)) from x11114659 order by GeneId"
ALA1 33
THR8 168
HUA4 476
ABA5 17