sub send_receive {
    .
    .
    .
    my $http_endpoint = qq[http://$host:$port$endpoint];
    my $ua = LWP::UserAgent->new();
    my $post = HTTP::Request->new('POST', $http_endpoint, ...