perl -e "use LWP::Simple; my $word = $ARGV[0];map { print qq($_ ) if /<h2.*$word<\/h2>/../Link/  } split /\n/, get('http://dictionary.reference.com/browse/'.$word);"