Select Code to Download

#!/usr/bin/env perl

...
    };
$@ and Carp::croak "SQL database error: $@";
__END__

perl script.pl --help
    script.pl [-desv] [long options...] <some-arg>
...

        -v --verbose            print extra stuff
        --help                  print usage message and exit

.>perl script.pl -d . --sql "select regulation from x11115466"
up
...
NA
up
up

.>perl script.pl -d . --sql "select genename, regulation from x1111546
+6"
|genename  |regulation|
...
|AC067940.1|up        |
|AL662791.1|up        |
-----------------------

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

..>  perl script.pl -d . --sql "select GeneID, (Tp1+tp2+tp3) as sum fr
+om x11114659 order by GeneId"
|GeneID|sum|
...
|HUA4  |476|
|THR8  |168|
------------

..>perl script.pl -d . --sql "select concat(ProteinName,'; ',MF1,'; ',
+MF2,'; ',MF3) as whatever from x11116298"
GH1; Growth factor activity; Growth hormone receptor binding; Hormone 
+activity
POMC; G protein-coupled receptor binding; Hormone activity; Signaling 
+receptor binding
THRAP3; ATP binding Source; Nuclear receptor transcription coactivator
+ activity; Phosphoprotein binding

package Example;

...
        };

    1;

..>perl -MExample script.pl -d . --sql "select genename, regulation fr
+om x11115466"
        NA:3
      down:5
        up:9