#!/usr/bin/perl
use warnings;
use strict;
use CGI::Simple;
$CGI::Simple::POST_MAX = 1024;       # max upload via post default 100kB 
$CGI::Simple::DISABLE_UPLOADS = 0;   #enable uploads 

my $upload_dir='uploads';

my $q = new CGI::Simple;
print $q->header();

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>";