use strict;
use warnings;
use diagnostics;

use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use LWP::UserAgent;
use Data::Dumper;
use MIME::Base64;
use JSON;

    my $json = JSON->new;
    my $ua = LWP::UserAgent->new();
    $ua->ssl_opts( SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, SSL_hostname => '', verify_hostname => 0 );
    $ua->default_header('Content-Type' => 'application/json' );
    $ua->default_header('Content_Type' => 'form-data;boundary=xYzZY');
    $ua->default_header('Authorization', "Basic " . encode_base64("admin:password"));
    $ua->timeout(600);

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


    my $header = ['Content-Type' => 'form-data;boundary=xYzZY'];
    my $request = HTTP::Request->new("POST", "$url", $header, $file);
#    my $request = HTTP::Request->new("GET", "${url}?select=*", undef);

    print Dumper $request;
    my $res = $ua->request($request);

    if($res->is_success) {
        my $data = $json->decode($res->decoded_content);
        print Dumper $data;
    }
    else {
        print Dumper $res;
    }