#!/usr/bin/perl
use LWP::Simple;
use CGI;
$q=new CGI;
my $this= $q->param('this');
print "Content-Type: text/html\n\n";
print qq{
};
print get('"http://swapwords.com/system/?u=kingfish234&i=773&l=346&c=24&this="'.$this);
print qq{
Copyright: 2003-2010 MediaSoft©, LLC
For Customer Inquiries Email: recipegal@chef.net
};