#!/usr/local/bin/perl -w
###############################################################################
#                           Mike Galsworthy's MEDSUM                          #
#                                                                             #
#                                                                             #
#                     PROGRAM 4 :  Download chain basic unit                  #
#                                                                             #
#     (credit to Oleg Khovayko for key Medline download parts of script)      #
#                                                                             #
#                                                                             #
###############################################################################

use Getopt::Long;

my ($web, $start);

GetOptions ("web:s" => \$web, "start=i" => \$start);

# if ($start > 0) {sleep 3;} #3 second time delay between batch calls

use LWP::Simple;

$signature = '&tool=medsum&email=mike_galsworthy@yahoo.co.uk';

my $efetch = "http://www.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?".
              "rettype=medline".      "&".
              "retmode=text".         "&".
              "retstart=$start".      "&".
              "retmax=500".           "&".
              "db=Pubmed".            "&".
              "query_key=1".          "&".
              "WebEnv=$web".          "$signature";

my $efetch_result = get($efetch);

print "$efetch_result\n";