#!/usr/bin/perl -w

use strict;

use HTTP::Message;
use HTTP::Headers;
use Data::Dumper;


my $content = '------------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="fp720eb62d5af0f1d87412b385533c196c"

1
------------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="trid720eb62d5af0f1d87412b385533c196c"

779758
------------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="673bb732f4790c8cc3a63e5489bdb25b"; filename=""


------------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="3fc90c2f106c4dc7e7742d6bb12b68f7"

some data
------------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="42a6fca55664038ee398f7ceb14e4835"

aoeu:aoeu
------------0xKhTmLbOuNdArY--
';

my $headers = HTTP::Headers->new;
$headers->header( 'content-type' => 'multipart/form-data; boundary=----------0xKhTmLbOuNdArY' );
my $m = HTTP::Message->new($headers,$content);

foreach my $part ($m->parts)
{
  print STDERR Dumper($part);
}