view release on metacpan or  search on metacpan

eg/gb_search  view on Meta::CPAN

my $max = $MAX > CHUNKSIZE ? CHUNKSIZE : $MAX;

$TERM = GENBANK_URL . "&db=$DB&dispmax=$max&term=" . uri_escape("@ARGV");
$TERM .= "&relpubdate=$AGE" if $AGE > 0;
$TERM .= "&Dopt=" . ($COUNT ? 'q' : 'd');
$GOT_TOTAL=0;
my $agent = LWP::UserAgent->new();

while ($GOT_TOTAL < $MAX) {
  $GOT = 0;
  my $req   = HTTP::Request->new('GET' => "$TERM&dispstart=$GOT_TOTAL");
  my $response = $agent->request($req,\&process_text);
  die "Request failure: ",$response->status_line 
    unless $response->is_success;
  last if $GOT < CHUNKSIZE;
  $GOT_TOTAL += $GOT;
}
exit 0;

sub process_text ($$$) {
  my ($chunk,$response,$protocol) = @_;