#! 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); 
while (my $result = $search->next_result()) { 
$url = $result->url;
$title = $result->title;
$desc = $result->description; 
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

##</code><code>##

BEGIN {
    push @INC, "c:\perl\site\lib\pubmed.pm";
}