use strict;
use LWP::Useragent;
use HTTP::Request::Common;

my $ua = new LWP::UserAgent;

my $res = $ua->request(POST 'https://<address>/cgi-bin/upload.pl',
     Content_Type => 'form-data',
     Content      => [ foo    => 'bar',
                       bar    => 'baz',
                       FILE1  => ["data.txt"],
                     ]
);