I saw this posted a few days ago, I havn't tested it.

#!/usr/bin/perl
use warnings;
use strict;
use CGI::UploadEasy;

my $uploaddir = '/path/to/upload/directory';
my $ue = CGI::UploadEasy->new(-uploaddir => $uploaddir);
my $info = $ue->fileinfo;
my $cgi = $ue->cgiobject;
print $cgi->header;
print $cgi->param('myParam'), "<br />\n";
for my $file ( keys %$info ) {
     print "Read $info->{$file}{bytes} bytes of $file<br />\n";
}
[download]