use Google::Search;
    my $search = Google::Search->Web([ lr => 'it' ], query => "site:sunrise.ch" );
    while ( my $result = $search->next ) {
        print $result->rank, " ", $result->uri, "\n";
    }