use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);
my $page             	  =  '';
my $response        	  =  '';
my %headers         	  =  '';

use XML::Bare;
my $server  = 'api.path.com;
my $path    = '/further/http_path/fileName.asp?getInsteadOfPostVAR1='.$username.'&getInsteadOfPostVAR2='.$password.'getInsteadOfPostVAR3='.$accountId;
my $port    = '443';

# url encoded for redirect after card successfully ordered on the payoneer website...
my $_redirectURL = qq~https%3A%2F%2Fwww%2EencodedURL%2Enet%2Findex%2Ecgi%3Fpg%3DBackOffice%26do%3Drfp%26un%3D$_username~;
my $_xmlToSend = qq~<?xml version='1.0' encoding='UTF-8' ?><PayoneerDetails><Credentials><userName>$_apiUsername</userName><password>$_apiPassword</password></Credentials><Details><prid>$_apiAccountId</prid><apuid>$_memberId</apuid><sessionid></sessionid><redirect>$_redirectURL</redirect><redirectTime>3</redirectTime><cardType>MC</cardType></Details><PersonalDetails><firstName>$_database->{FirstName}</firstName><lastName>$_database->{LastName}</lastName><dateOfBirth></dateOfBirth><address1>$_database->{address}</address1><address2>$_database->{address2}</address2><city>$_database->{city}</city><country>$_databasecountry</country><state>$_databasestate</state><zipCode>$_database->{zip}</zipCode><mobile>$_database->{cell}</mobile><phone>$_database->{phone}</phone><email>$_database->{email}</email></PersonalDetails></PayoneerDetails>~;

my %submit_data =  (
	'mname' => "GetXML",
	'xml'   => "$_xmlToSend",
);

my $post_data = &make_form(%submit_data);
my ($page,$response,%headers) = &post_https($server,$port,$path,'',$post_data);
my $ob = new XML::Bare( text => "$page" );
my $root = $ob->parse();
my $_redirectUrl = $root->{PayoneerToken}{Token}{value};
#Get Data to see if it worked:
die "\$_redirectUrl = '$_redirectUrl';\$post_data='$post_data';<br>\$page='$page';";

window_redirect($_redirectUrl);
exit;