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; }