#!/usr/bin/perl
use strict;
use warnings;
use lib qw(../lib);
use WWW::Search;
my $motif = shift || 'ACCTA';
my $s = new WWW::Search ('PubMed');
$s->native_query( $motif );
my $count = 0;
while (my $r = $s->next_result) {
unless ($count++) {
print "The following abstracts mention the motif '${motif}':\n\n";
}
print join(' ', "${count}.", $r->title, $r->description) . "\n\n";
}
unless ($count) {
print "No abstracts were found that mention the motif '${motif}'.\n";
}