I don't really know what your problem is, but here are 2 scripts I use to test an old cgi store's CC verification. I set up a script to accept POST data, then resend it as POST data, with a true or false added. It just cats everything it receives as POST, adds the true/false value, and sends it out as POST. 
##### the respgen.pl generator which receives data
##### and decides if it's valid or not
#!/usr/bin/perl
use warnings;
use CGI 'cgi';
use LWP::UserAgent;

our ($secure_server_address,$cgi_directory);
require './store_cfg';

print "Content-type: text/html\n\n";

#my $test= 'FALSE'; 
my $test= 'TRUE';
my $relay;
my $cgi = new CGI;
my %input= $cgi->Vars();
foreach $name (keys %input){
        $value = $input{$name};
        $relay .= "$name=$value&";
         }
$relay .= "Ecom_transaction_complete=$test&";
$relay .= "IOC_response_code=0&";

open (RT,">test/respgen.test");
print RT $relay;
close RT;

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new (POST => "$secure_server_address$cgi_dire
+ctory/boacc.pl");
$req->content_type('application/x-www-form-urlencoded');
$req->content("$relay");
my $res = $ua->request($req);
print $res->as_string;

[download]

And here is a simple test program for it. 

#!/usr/bin/perl
use warnings;
#use this to test cc transaction, it simulates the output of perlshop 
use warnings;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$grand_total= '109.34';
$order_id= '999999999';
$street1= '9 9th Street';
$country= 'US';
$email= 'z9@z9.com';
$first= 'zjoe';
$last= 'zmon';
$card_no= '4111 1111 1111 1111';
$exp_mon= '09';
$exp_yr= '2004';
$zip= '48127';

$ua = LWP::UserAgent->new();
$req = POST 'http://zentara.zentara.net/~zentara/cgi-bin/store/respgen
+.pl',

 ['IOC_merchant_id' => '4301330018817403',
  'IOC_order_total_amount' => "$grand_total",
  'IOC_merchant_shopper_id' => 'susehost',
  'IOC_merchant_order_id' => "$order_id",
  'ecom_billto_postal_street_line1' => "$street1",
  'ecom_billto_postal_postalcode' => "$zip",
  'ecom_billto_postal_countrycode' => "$country",
  'ecom_billto_online_email' => "$email",
  'ecom_payment_card_name' => "$first $last",
  'ecom_payment_card_number' => "$card_no",
  'ecom_payment_card_expdate_month' => "$exp_mon",
  'ecom_payment_card_expdate_year' => "$exp_yr",
  'url' => 'http://zentara.zentara.net/~zentara/cgi-bin/shop/boacc.pl'
+,
 ];
$content = $ua->request($req)->as_string;
print $content;

[download]
I'm not really a human, but I play one on earth. flash japh

In reply to Re: Redirecting with a POST by zentara
in thread Redirecting with a POST by cosmicperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.