#!/usr/bin/perl
use LWP::Simple;

$apikey = "0fb67d2625d4ee9b94284fc226643c618e3b3b69";
$text = "Dear Ken,My son, Richard, recently sold his interest in a dot.com company and isworking for KPMG Consulting. He is interested in moving to Texas. I haveattached a copy of his resume. If you hear of anything that might fit,please keep him in mind.Is there any truth to the rumor that you are going to be the next Secretaryof the Treasury?Thanks,Nancy George - rpgresume.docMessage-ID: <28561893.1075840228775.JavaMail.evans@thyme>";

$file = get "http://gateway-a.watsonplatform.net/calls/text/TextGetRankedKeywords?apikey=$apikey&text=$text&outputMode=json";
#print "http://gateway-a.watsonplatform.net/calls/text/TextGetRankedKeywords?apikey=$apikey&text=$text\n";
print $file;