#! 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 "$result\n";
print "<a href=$url>$title<br>$desc<p>\n"; 
    }