#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
use HTTP::Request::Common;

my $file = "/tmp/test_image.tgz.bin";
my $url  = "https://10.248.179.31/api/rest/software_package";

my $request = HTTP::Request::Common::POST(
  $url,
  Authorization => 'Basic ' . encode_base64('user:password'),
  Content_Type  => 'multipart/form-data; boundary="xYzZY"',
  Content       => [ file => [$file] ],
);

print $request->as_string;