use strict;
use warnings;

use LWP::UserAgent;

my $pw='abcdefg';
my $us='1234567';
my $url = "https://poms-test.ts.fujitsu.com/CallLog";

my $ua = LWP::UserAgent->new;
$ua->requests_redirectable(undef); # Redirects ausschalten!

$ua->credentials("poms-test.ts.fujitsu.com:443", "POMS2", $us, $pw);

$ua->proxy( https  => 'http://www-proxy.t-online.de');

$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]);