my $response = $ua->get('https://poms-test.ts.fujitsu.com/CallLog');
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";
}