If you want to do it in as few steps as possible, try this example using Tachyon's CGI::Simple.

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

my $maxsize = 1024 * 100; #max 100K 
my $upload_dir='uploads';
my $q = new CGI::Simple;
print $q->header();

if($ENV{CONTENT_LENGTH} > $maxsize){
 print "file too large - must be less than $maxsize bytes";
 exit;
 }

my $files    = $q->upload();                # number of files uploaded
+; 
my @files    = $q->upload();               # names of all uploaded fil
+es 
my $filename = $q->param('upload_file');    # filename of uploaded fil
+e 
my $mime     = $q->upload_info($filename,'mime'); # MIME type of uploa
+ded file 
my $size     = $q->upload_info($filename,'size'); # size of uploaded f
+ile 

# short and sweet upload 
my $ok = $q->upload( $q->param('upload_file'),"$upload_dir/$filename")
+;
print "Uploaded ".$q->param('upload_file')." and wrote it OK!\n" if $o
+k;

print "total files = $files<br> 
       filenames = @files<br> 
       filename = $filename<br> 
       mimetype= $mime<br> 
       size=$size<br>";
[download]