Upload Data

use CGI;
use File::Copy;

my $UPLOAD_DATADIR = '/data/www/html/docs-int';

my $q = CGI->new();

print $q->header();

my $upload_tempfilename = $q->tmpFileName($q->param('filename'));

my $rc = copy $upload_tempfilename, "$UPLOAD_DATADIR/XXX";

print "Could not save file '$upload_tempfilename': $!" unless $rc;

CGI Form Code