Sample code: general query

## perl codes ##

use strict;
use warnings;
use LWP::Simple;

my $api= "http://www.animalgenome.org/cgi-bin/QTLdb/API";

my $handle  = 'genes';    #- Data scope: 'traits', 'publications', 'breeds', 'genes', 'chrloc'.
my $scope   = 'cattle';   #- Species: 'cattle', 'pig', 'sheep', chicken', 'rainbow trout'
my $query   = 'holstein'; #- breed name
my $query   = 'bone';     #- Key words
   $query   =~ s/\s/\%20/g;

my $myquery = "$api/iquery?q=$query&s=$scope&h=$handle&history=y";
my $query_results = get($myquery);
print "$query_results\n";