#! /usr/local/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
my $response = $ua->request(
  POST 'http://localhost/cgi-bin/file.pl',
  Content_Type => 'form-data',
  Content => [
    arbitrary       => "with",
    parameters      => "corresponding",
    here            => "values",
    "uploaded file" => ["example.txt"],
  ],
);
if ($response->is_success()) {
  print $response->content();
}
else {
  print $response->error_as_HTML();
}