#!/usr/bin/perl

require 5.8.0;
use strict;
use warnings;
# use diagnostics;

use Data::Dumper;
use SOAP::Lite 0.711 +trace => 'all';
 
my $soap = SOAP::Lite->new();
my $service = $soap -> service ('http://dev.iban-bic.com/Riban/soap2/?wsdl');
my $params = SOAP::Data->value(
        SOAP::Data->name(country => 'DE'), 
        SOAP::Data->name(language => 0),
)->type('tns:Map');
# die Dumper($params);

my $rc = $service->get_form($params, 'foo', 'bar');
die $rc->faultstring if $rc->fault;
print Dumper(\$rc);