#!/usr/bin/perl -w use strict; use CGI::Simple; $CGI::Simple::DISABLE_UPLOADS = 0; # enable uploads $CGI::Simple::POST_MAX = 1_048_576; # allow 1MB uploads my $q = new CGI::Simple; my $target = '/path/to/write/file.name'; $q->param('upload_file') ? upload() : request_file(); exit; sub upload { $q->upload( 'upload_file', $target ); } sub request_file { print $q->header; print < HTML }