#!perl -wl

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
my $req = POST(
    "http://parseerror.com/images/"
    ,"Content_Type" => "form-data"
    ,"Content"      => [
        "image_file" => [ "uploadme.gif" ]
    ]
);

my $res = $ua->request($req);
print $res->as_string;