#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite +trace => [transport => \&soap_trace];
use Data::Dumper;
use XML::Parser;
use IO::Socket::SSL;

print "Version SOAP::Lite: ".(defined $SOAP::Lite::VERSION ? $SOAP::Lite::VERSION : '- nicht inst. -')."\n";
print "Version XML::Parser: ".(defined $XML::Parser::VERSION ? $XML::Parser::VERSION : '- nicht inst. -')."\n";
print "Version IO::Socket::SSL: ".(defined $IO::Socket::SSL::VERSION ? $IO::Socket::SSL::VERSION : '- nicht inst. -')."\n";

sub soap_trace {
        my ($in) = @_;
        print '-' x 80;
        print "\n".Dumper($in);
}

my $url = 'https: //ssl. ibanrechner. de/soap/?wsdl'; # BLANKS ENTFERNEN!
my $soap = SOAP::Lite->new();
my $service = $soap->service($url);