#!C:\Perl\bin\Perl.exe -w

print "Content-type:text/html\n\n";

use strict;
use LWP::UserAgent;
use LWP::Debug qw(+);

my $pw='abcdefg';
my $us='123456';

my $url = "https://xyz.server.eu/lala.php";

my $ua = LWP::UserAgent->new;
 
   $ua->timeout(10);
   $ua->requests_redirectable(undef); # Redirects ausschalten!
 
   $ua->credentials("++++.******.de:443", "Realname", $us, $pw);
   
   $ua->add_handler("request_send",  sub { shift->dump; return });
   $ua->add_handler("response_done", sub { shift->dump; return });
 
my $response = $ua->post($url,[0=>0]);
   print $response->status_line;
   print $response->decoded_content;