#!/usr/bin/perl -w
use strict;
use IO::Socket::SSL qw();
use LWP::UserAgent;

my $url_fw_upload='https://xxx.xxx.xxx.xxx/local/fwLoad?X-Progress-ID=xxxxxxxxxxxxx';

my $ua=LWP::UserAgent->new(ssl_opts => {
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    verify_hostname => 0,
}); 
$response=$ua->post($url_fw_upload,
    Authorization=>"Bearer $auth_key",
    Content_Type=>'form-data',
    Content => [
        "file" =>['firmware.img' => '/home/user/firmware.img'],
    ],
);