#!/usr/bin/perl -w

# important, this limits the size
# of the file to upload.  This
# prevents people from uploading
# large files to slow down your
# server:
$CGI::POST_MAX=1024 * 100;

use strict;
use File::Copy;
use CGI qw/:standard/;
use strict;
use warnings;

# get filename args
my $cgi = new CGI or die "new CGI: $!\n";

# The contents of your file is contained
# in this scalar:
my $file = $cgi->param('file');
[download]