#! c:\perl\bin

use WWW::Search; 

$query = "lung cancer treatment";
$search = new WWW::Search('PubMed'); 
$search->native_query(WWW::Search::escape_query($query)); 
$search->maximum_to_retrieve(100); 
my $response = $search->response();
if ($response->is_success) {
    print "Page returned ok";
} else {
    print "error:  " . $response->as_string();
}
while (my $result = $search->next_result()) { 
$url = $result->url;
$title = $result->title;
$desc = $result->description; 
print "$result\n";
print "<a href=$url>$title<br>$desc<p>\n"; 

##</code><code>##

Unknown search engine backend PubMed (Can't locate WWW/Search/PubMed.pm in @INC (@INC contains: C:/Perl//lib C:/Perl/site/lib .) at (eval 5) line 2.
BEGIN failed--compilation aborted at (eval 5) line 2.
) at C:\Perl\progs\test2.pl line 6