my $maxsize = 1024 * 100; #max 100K 
my $upload_dir='uploads';
my $q = new CGI;
print $q->header();

if($ENV{CONTENT_LENGTH} > $maxsize){
 print "file too large - must be less than $maxsize bytes";
 exit;
 }