REST API Client Sample Code using Perl

use REST::Client;

 

my $client = REST::Client->new();



$client->addHeader('Content-Type', 'application/json');

$client->addHeader('charset', 'UTF-8');

$client->addHeader('Accept', 'application/json');



$req = '{

	"gateway_id" : "A0001-99",

	"password" : "abcdef",

	"transaction_type" : "00",

	"cc_number" : "4111111111111111",

	"cc_expiry":"1019",

	"amount":"20.75",

	"cardholder_name": "Donald Duck"

	}';



#If using a live account

#$url="https://api.e-xact.com/transaction";



#If using a demo account in the E-xact Demo Environment 

$url="https://api.demo.e-xact.com/transaction"; 



$client->POST($url, $req);

print $client->responseContent();

 

#response headers may be gathered

print $client->responseHeader('ResponseHeader');