#!/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 files 
my $filename = $q->param('upload_file');    # filename of uploaded file 
my $mime     = $q->upload_info($filename,'mime'); # MIME type of uploaded file 
my $size     = $q->upload_info($filename,'size'); # size of uploaded file 

# 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 $ok;

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