#!/usr/bin/perl-w

use strict;
use Getopt::Std qw(getopts);
use LWP::Simple qw(get);
use URI::Escape qw(uri_escape uri_unescape);

sub usage ( ) {
print "usage: Life options values key
options available:
-s Synonymous -a Antonym -b Birth Year
-t Triggers -r Rhymes -d Death Year
-g Generalizes -l Sounds like -T Bio Triggers
-S Specialises -A Anagram of -k Also Known As
-c Comprises -o Occupation of
-p Part of -n Nationality

or -x for all

values is mandatory, but some searches require key\n\n"

}