Multipart form data with HTTP::Request::Common

p5-multipart-request.pl

use common::sense;
use HTTP::Request::Common;
use LWP::UserAgent;

{
    my $req = POST 'http://localhost:8888/test.php',
        Content_type => 'form-data',
        Content      => {
        myname  => 'hogefuga',
        myfile1 => [ 'file.txt', 'file.txt' ],
        myfile2 => [ 'file.txt', 'file.txt' ],
        };

    say "==== Request ====";
    say $req->as_string;

    my $ua  = LWP::UserAgent->new;
    my $res = $ua->request($req);

    say "==== Response ====";
    say $res->as_string;
}