use strict;
use warnings;
use Data::Dumper;
use SOAP::Lite;

my $client = SOAP::Lite
		->new()
		->soapversion('1.2')
		->service('http://www.OpenLigaDB.de/Webservices/Sportsdata.asmx?WSDL')
		;

my $sports = Dumper($client->GetAvailLeagues());
print $sports;