#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTML::Entities;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent('Mozilla/5.0');
my $uri="http://www.google.com/search?q=define%3A".$ARGV[0];
my $response=$ua->get($uri);

if($response->is_success){
    my $result=$response->content; 
    $result=~s/\n//g;
    $result=~/<ul type=\"disc\">(.*)<\/ul>/;
    my $intermediate=$1;
    if(length($intermediate)<1){
        print "No definitions returned/format not recognised\n";
    } else {
        my @splitint=split(/<li>/,$intermediate);
        shift(@splitint);
	my %answer;
        foreach my $int (@splitint){
            $int=~/^(.*?)</;
	    if($1){
	    	$answer{$1}=1;
	    }
        }
	@splitint=keys %answer;
	foreach my $int (@splitint){
		print decode_entities($int)."\n";
	}	
    }
} else {
    die $response->status_line;
}