The following example uses Business-PinPayment by Danny Liang:
my $test = Business::PinPayment->new(
config => {
api_key => 'your-secret-api-key',
email => 'customer@email.com',
description => 'Widgets',
amount => '4999',
currency => 'USD',
card_token => 'card_nytGw7koRg23EEp9NTmz9w',
ip_address => '1.2.3.4'
}
);