binmode STDOUT;

use strict;
use warnings;
use IO::Socket;

my $data = do{ local $/ = undef, <DATA>};
my $length = length $data;

my $host = "www.openligadb.de";

my $sock = IO::Socket::INET->new("$host:80") or die $@;

print $sock <<EOT;
POST /Webservices/Sportsdata.asmx HTTP/1.0
Host: $host
Content-Type: text/xml; charset=utf-8
Content-Length: $length
SOAPAction: "http://msiggi.de/Sportsdata/Webservices/GetAvailLeagues"

$data
EOT


while( read($sock, my $buffer, 123) ){
    print $buffer;
}


__DATA__
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <GetAvailLeagues xmlns="http://msiggi.de/Sportsdata/Webservices" />
  </soap:Body>
</soap:Envelope>