#!/usr/bin/perl 
use warnings;
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = 'http://serervIp.com:7052/tmp/scripts';
file_path = '/tmp/Monitoring/finacleservices_a01gcbemcore1a_Core_tivoli.csv';
my $req = $ua->post($url,
    Content_Type => 'application/text',
    Content => [
        file => [$file_path],
    ],
);

##</code><code>##

HTTP1.1/(404 (NOT found)
Connection close