my @files = (); # assume there are files in here

   use WWW::Mechanize;
   my $mech = WWW::Mechanize->new(agent=>"Bot 1.0");
   $mech->get( $url );

    $mech->submit_form(
    $form_number => 1,
     fields      => {
  # the image name and category here for each @files
         submitter_name => $username,
         submitter_email => $email,
     });