use constant PROXY => "http://www.decafbad.com/xrfp/memepool.cgi";



use constant METHOD => "memepool.filterData";







my $text = "this is the network of our disconnect";



my $kw = "aaronland,perl,goofy";







my $xmlrpc = XMLRPC::Lite->new()->proxy(PROXY);



my $res = $xmlrpc->call(METHOD,$text,undef,{keywords=>$kw});







print $res->result()->{data};