Anropa API med Perl
 

Jag är egentligen helt ny på den typen av knackning. Undrar om någon vet vad som kan vara fel med följande kod för att anropa loopias api. Perl stänger sig direkt när filen körs också...

#!/usr/bin/perl

use RPC::XML;
use RPC::XML::Client;
use Data::Dumper;
use Encode;

my $global_check_domain_server_url =
'https://api.loopia.se/RPCSERV';

my $global_username = "username";
my $global_password = "password";
my $domain = "doman.nu";

my $client =
RPC::XML::Client->new($global_check_domain_server_url);
$RPC::XML::ENCODING = "UTF-8";

my $response = $client->simple_request('addDomainToAccount',
$global_username, $global_password, $domain,
RPC::XML::boolean->new(1));

my $reference_no = $response->{"reference_no"};
my $amount = $response->{"unpaid_amount"};

$response = $client->simple_request('payInvoiceUsingCredits',
$global_username, $global_password,
RPC::XML::string->new($reference_no));