use strict;
use WWW::Mechanize;
use Crypt::SSLeay;

my $url = "https://poms-test.ts.fujitsu.com/CallLog/";

my $mech = WWW::Mechanize->new( autocheck => 1 ); # initalize
#$mech->credentials("username", "password");
$mech->credentials('poms-test.ts.fujitsu.com:80', 'POMS2 HTTP Interface Login', 'username', 'password');

#my $content = $mech->get($url); # get content of url
my $response = $mech->post('https://poms-test.ts.fujitsu.com/CallLog',
[
	msg_node => 'meinKnoten',
]);

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

print "url:'$url'\ncontent:'$response'\n";

exit;