#! /usr/bin/perl

use strict;
use warnings;

use WebService::Dwolla; # Include Dwolla REST API Client
use Data::Dumper;       # Include this to help with debugging.

# Instantiate new client.
my $api = WebService::Dwolla->new(); 

# Set key, secret, and OAuth token from config file.
$api->set_api_config_from_file('/usr/local/etc/dwolla_api.conf');
$api->set_debug_mode(1);

# Example 1: Send money.
my $pin = '1234';
my $transaction_id = $api->send($pin,'812-713-9234','1.00','Test from Perl API');

if (!$transaction_id) {
    print Dumper($api->get_errors());
} else {
    print Dumper($transaction_id);
}