use Net::Google;
 use constant LOCAL_GOOGLE_KEY => "********************************";

my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();

use utf8;
my $str = "פרל";

$search->query($str);
map { print $_->URL()."\n"; } @{$search->results()};