Select Code to Download

#! c:\perl\bin

use WWW::Search; 
...
$search->maximum_to_retrieve(40000);
while (my $result = $search->next_result()) {
    }