HTTP::Useragent & multipart/form-data

[Markus]

Hallo Forum!

Hat jemand mal nen Tip, wie ich mit HTTP::UserAgent Binärdaten mitgeben kann?
Mein Ansatz ist Müll und perldoc gibt irgendwie auch nicht das her, was ich suche! Danke...

Soweit mein Ansatz, nur wird das Bild nicht übertragen. :-)

$browser = LWP::UserAgent->new;
$browser->agent("MeinBroser1.0");

open(DATA, "<2.jpg");
binmode (DATA);
@file = <DATA>;
close(DATA);

$browser->post($url,
 [
 name1=>'Markus',
 name2=>'M.',
 nick=>'Clark',
        blid=>'2.jpg', @file
 ]);