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( http  => 'http://wwwproxy.bank.dresdner.net:8080');
$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;

POST https://poms-test.ts.fujitsu.com/CallLog 
User-Agent: libwww-perl/6.02 
Content-Length: 3 
Content-Type: application/x-www-form-urlencoded 
0=0 

500 Can't connect to poms-test.ts.fujitsu.com:443 (Bad hostname) 
Content-Type: text/plain 
Client-Date: Fri, 27 Apr 2012 12:38:54 GMT 
Client-Warning: Internal response Can't connect to poms-test.ts.fujitsu.com:443 (Bad hostname) 
LWP::Protocol::https::Socket: Bad hostname 'poms-test.ts.fujitsu.com' at C:/Perl/lib/LWP/Protocol/http.pm line 51.
500 Can't connect to poms-test.ts.fujitsu.com:443 (Bad hostname)Can't connect to poms-test.ts.fujitsu.com:443 (Bad hostname) 
  LWP::Protocol::https::Socket: Bad hostname 'poms-test.ts.fujitsu.com' at C:/Perl/lib/LWP/Protocol/http.pm line 51.