Here is a portion of code that uploads a file using HTTP::Request::Common and LWP::UserAgent:

my $req = POST "$url",Content_Type => 'form-data',Content => [ user_id
+ =>$usr{user_lc},password  => $usr{password},session_id => $usr{sessi
+on_id},image1 => ["$image_path1"]     ];
[download]