#!/usr/bin/perl -w

use warnings;
use strict;
use WWW::Search;

my $www_search = new WWW::Search('NCBI::PubMed');

$www_search->maximum_to_retrieve( 10 );

$www_search->native_query( my $query_pubmed = 'egf [ALL]' );

while ( my $r = $www_search->next_result ) {
    print "$_\n" for ( $r->url, $r->title, $r->description );
}