use strict;
use LWP::UserAgent;

### 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://xyz.com/CallLog',
[
	msg_node        => $msg_node
]);

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