#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;

$cgi = new CGI;

# Create a user agent object
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
# Create a request
$req = new HTTP::Request GET => 'http://www.profit-position.com';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
# Pass request to the user agent and get a response back
$res = $ua->request($req);
# Check the outcome of the response
print $cgi->header();
if ($res->is_success) {
	print $res->content;
} else {
	print "Bad luck this time\n";
}