#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my $filename = $cgi->param("formuploadinputname");

my($bytesread,$buffer,$total);
open(OUTPUT, "> /var/home/me/somedirsomewhere/$filename");
binmode $filename;
binmode OUTPUT;

while ($bytesread = read($filename,$buffer,1024) ) {
	$total += $bytesread;
		if ($bytesread > 10000000) { # 10 meg filesize limit
			close(OUTPUT);
			unlink "/var/home/me/somedirsomewhere/$filename";
		}
	print OUTPUT $buffer;
}
close(OUTPUT);