search-google-from-command-line-with-mojolicious

#!/usr/bin/env perl

use strict;
use warnings;

my $query = join ' ' => @ARGV;
my $url = 'http://www.google.com/search';

use Mojo::Client;
use Mojo::URL;

my $client = Mojo::Client->new;
$client->get(Mojo::URL->new($url)->query(q => $query)->to_abs)
  ->success->dom->find('#ires > ol > h3 > a')->each(
    sub {
        my $a = shift;

        print $a->text, "\n";
        print $a->attrs->{href}, "\n\n";
    }   
  );