#!/usr/bin/perl

 use HTTP::Request::Common;
 use LWP::UserAgent;
 use CGI qw(header -no_debug);
 my $URL = 'https://www.mydomain.com/upload.html';
 my $req = POST $URL,
 Content_Type => 'form-data',
 Content      => [
 user   => 'username',
 pass   => 'password',
 FILE   => ['./binaryfile'], # this file will be uploaded
 ];
 my $res = LWP::UserAgent->new->request($req);
 print header, $res->is_success ? $res->content :
 $res->status_line;