use UUID qw(uuid);
use HTTP::Request ();
use Encode ();

sub build_multi {
    my ($method, $uri, $header, @requests) = @_;
    my $r = HTTP::Request->new($method, $uri, $header);

    my $boundary = uuid();
    $r->header(
        'Content-Type' => "multipart/mixed; boundary=$boundary"
    );

    my $content = '';
    for my $req (@requests) {
        $content .= $r->as_string("\015\012");
        $content .= "\015\012--{$boundary}";
    }
    $content .= '--' if $content;
    $r->content( Encode::encode_utf8($content) );
    return $r
}