# Get XML file
my @current_ids;
+ print {$xml_file} "<opt>\n";
while (@current_ids = splice(@gene_ids,0,5)) {
$uri = URI->new($options{pubmed_site}.$options{pubmed_get_url});
$uri->query_form($uri->query_form(),
$response =~ s/^\s*<pre>//gso;
$response =~ s#</pre>\s*$##gso;
-
print {$xml_file} $response;
sleep 10;
}
+ print {$xml_file} "</opt>\n";
undef $xml_file;
}