Sample code: info

## perl codes ##

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

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

my $query = '12890, 12896, 12925, 13826, 15090, 15110, 17227, 17228,
             17241, 17242, 17730, 17734, 17741 '; #- QTL IDs
my $scope = 'pig'; #- Species: 'cattle', 'pig', 'sheep', chicken', etc

my $fetch = "$api/ifetch?q=$query&s=$scope&history=y";
my $fetched = get($fetch);
print "$fetched\n";

#- do whatever you want with what you get