Using LWP to mess the content type

gistfile1.pl

#!/usr/bin/env perl

use warnings;
use strict;

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

my $req = POST 'http://localhost:3000/',
       Content_Type => 'form-data',
       Content      => [ name  => 'Eduardo Arino',
                         email => 'earino@gmail.com',
                         gender => 'M',
                         born   => '1978',
                         filename   => [
                                undef,
                                'file.jpeg',
                                'Content-Type' => 'image/jpeg',
                                'Content' => '<?php phpinfo(); ?>',
                        ],
                       ];

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