#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;

$q->param(-name=>'cmd',-value=>'_notify-validate');

# read post from PayPal system and add 'cmd'
#read (STDIN, my $query, $ENV{'CONTENT_LENGTH'});
#$query .= '&cmd=_notify-validate';

# post back to PayPal system to validate
use LWP::UserAgent;
my ($ua,$req,$res);
$ua = new LWP::UserAgent;
$req = new HTTP::Request 'POST','http://www.eliteweaver.co.uk/testing/ipntest.php';
$req->content_type('application/x-www-form-urlencoded');
$req->content($q);
$res = $ua->request($req);