xxxxxxxxxxxx1234 Test_ID 1203 Processor 12345 Visa test2 Test Customer 1.00 City 123 Test st #293 Authorize PA 111 US test.cgi ##

##


use strict;
use warnings;

use XML::Simple;
use LWP::UserAgent;

my $data = ##XML Data from external source.
my $xml;
eval {
  $xml = XMLout($data, rootname => 'PaymentRequest',
                xmldecl => '',
                noattr => 1);
};
if ($@) {
  ##Error Handling
}

my $ua = new LWP::UserAgent;
my $req = new HTTP::Request('POST', "http://$server/pay.cgi");
$req->content_type('text/xml');
$res = $ua->simple_request($req);
if (! $res->is_success) {
  ##Error Handling
}