google defines

#!/usr/bin/perl

# google defines
# by boch@irc.unirc.com.ar

use strict;
use LWP;
use LWP::UserAgent;
use HTML::Parse;
use HTML::FormatText;

my $ua = LWP::UserAgent->new;
my($LANG, $TARGET, $URL);
my $results = 0;

$ua->agent("google defines");

if(substr($ARGV[0], 0, 1) eq "-"){
        $LANG = substr($ARGV[0], 1, 4);
        $TARGET = $ARGV[1];
} else {
        $LANG = "es";
        $TARGET = $ARGV[0];
}

$URL = 'http://www.google.com.ar/search?hl='.$LANG.'&q=define%3A'.$TARGET.'&btnG=B%C3%BAsqueda&meta=lr%3Dlang_es';

my $req = HTTP::Request->new(GET => $URL);
my $res = $ua->request($req);

die($res->status_line) if(!$res->is_success);

foreach(split "\n", HTML::FormatText->new->format(parse_html($res->content))){
        if($_ =~ /^ +\* /){
                print $_."\n";
                $results = 1;
        }
}
print "No se encontraron resultados.\n" if(!$results);