LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request:: POST https://KundenDomain/CallLog/
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::UserAgent::request: Simple response: Internal Server Error

status_line:
500 Connect failed: connect: Unknown error; Unknown error

as_string:
500 (Internal Server Error) Connect failed: connect: Unknown error; Unknown error
Content-Type: text/plain
Client-Date: yxz
Client-Warning: Internal response

500 Connect failed: connect: Unknown error; Unknown error

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

### Message Parameter
my $parameter  = @ARGV[0];
my @parameters = split( /;:;/, $parameter);
my $msg_node        = $parameters[0];

my $ua = LWP::UserAgent->new;

my $response = $ua->post('https://CustomerDomain/CallLog',
[
	msg_node        => $msg_node
]);

$ua->credentials("https://CustomerDomain/CallLog", "realm", "username", "password");
$ua->proxy('http://proxyserver:port');

if ($response->is_success) {
	print "is success:\n", $response->content;
}
else {
	print "is not success:\n", $response->status_line;
}