use strict;
use WWW::Search;
my $Search = new WWW::Search();
$Search->native_query(WWW::Search::escape_query('penguin')); 
while (my $Result = $Search->next_result()) { 
   print $Result->url, "\n";
}