>
>What's the best way to go about making an HTTP POST?
>I want to retrieve a dynamic page that is only accessable via a POST.
>Is there a module (simple one?) that deals with this?

From 'perldoc lwpcook',

         use HTTP::Request::Common qw(POST);
         use LWP::UserAgent;
         $ua = LWP::UserAgent->new;

         my $req = POST 'http://www.perl.com/cgi-bin/BugGlimpse',
                       [ search => 'www', errors => 0 ];

         print $ua->request($req)->as_string;

This is maybe the simplest way I know.


Even simpler if there is a web page containing a form that POSTs to that
page is to use WWW::Mechanize.  Then it would be as simple as:

	use WWW::Mechanize;
	my $ua = WWW::Mechanize->new;
	$ua->get( 'http://whatever.example.com/' );
	$ua->submit_form( fields => { search => 'www', errors => 0 } );
	print $ua->content;

(The last line is probably more useful than the literal translation of
	print $ua->res->as_string;
)

##</code><code>##

#!/usr/bin/perl
use warnings;
use LWP::UserAgent;

my $relay;
$relay .= "Ecom_transaction_complete=$test&";
$relay .= "IOC_response_code=0&";

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new (POST => 'https://zentara.net/cgi-bin/boacc.pl');
$req->content_type('application/x-www-form-urlencoded');
$req->content("$relay");
my $res = $ua->request($req);
print $res->as_string;