#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Request::Common;

my $boundary = shift @ARGV;
my $data = {};
while (<>) {
    next if !/=/;
    chomp;
    my( $key, $value ) = split /=/, $_, 2;
    $data->{$key} = $value;
}

my $request = HTTP::Request->new();
$request = POST "www.example.com",
           Content_Type => "multipart/form-data; boundary=$boundary",
           Content => $data;
print $request->as_string;
