#!/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);