/String base64Xml = URLEncoder.encode(xml.toString(),"UTF-8");
sun.misc.BASE64Encoder encoder = new sun.misc.BASE64Encoder();
String base64 = encoder.encode(base64Xml.getBytes());

##</code><code>##

$base64 =base64_encode(urlencode($baseStr));
##</code><code>##

#======= Encode XML base64 ================================
use MIME::Base64 ;
$enco = encode_base64($wr);

#======= Send request to Payment Gateway ==================
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
my $req = POST 'https://payment.server.com/payment/Interface'; [
type=>'hidden',
name=> 'TradeInfo',
value=> $enco,
type=>'submit',
value=>'submit',

];


$content = $ua->request($req)->as_string;
# print "Content-type: text/html\n\n";
print $content;