use lib "./softlayer-api-perl-client/";
use SoftLayer::API::SOAP;
use Data::Dumper;
my $api_username = "x";
my $api_key = "a";
my $client = SoftLayer::API::SOAP->new('SoftLayer_Account', undef, $api_username, $api_key);
my $result;
$result = $client->getNextInvoiceTotalAmount();
print "Next Invoice Total: " . $result->result . "\$\n" ;