Select Code to Download

my $inhalt;
my $sock = new IO::Socket::INET (
...
        $inhalt .= $_;
}
$sock->close();

my $ua = LWP::UserAgent->new;
$ua->agent("xmlClient 1.0");
...

my $res = $ua->request($req);
my $inhalt = $res->as_string;#$res->{_content}

POST /xml/ HTTP/1.1
Connection: Keep-Alive, close
...
Content-Length: 224

<?xml version="1.0" encoding="UTF-8"?><command name="checkDomain" cust
+omer="111" password="11111111111111111111111111111111" passwort="1111
+1111111111111111111111111111"><tld>de</tld><sld>super2423423423domain
+</sld></command>

HTTP/1.1 200 OK
Date: Mon, 24 Jun 2013 03:54:45 GMT
...
   <status>available</status>
</response>
</responses>

package Net::HTTP::Methods;

...
} # BEGIN

1;