#! c:\perl\bin

use WWW::Search; 

$query = "prostate cancer";
$search = new WWW::Search('PubMed'); 
$search->native_query(WWW::Search::escape_query($query)); 
$search->maximum_to_retrieve(40000);
while (my $result = $search->next_result()) {
    }