#! C:\perl\bin\perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use BKG::HTML::format;

# Some Security Holes Plugged
$CGI::POST_MAX        = 100 * 1024 * 1024; # limit posts to 100M max

my $q = new CGI;

#################
# Get form data	#
#################

$T=1;
$x=1;

while ($T)  {
	$test1 = "name_upfile" . $x;
	$test2 = "upfile" . $x;
	if (($q->param($test1)) and ($q->param($test2)))  {
		$file_name[$x-1] = $q->param($test1);
		$file[$x-1]      = $q->upload($test2) or die "test:$!";
		$x++;
	}
	else  { $T=0 }
}

mkdir "C:/web/aps/mi/$name", 0755 or die "Cannot make dir: $!";

$x=0;
foreach (@file_name)  {
	open (OUTFILE, ">C:/web/aps/mi/$name/$_") or die "Cannot open $name: $!";
	binmode(OUTFILE);

	while ($bytesread=read($file[$x],$buffer,1024))  {
		print OUTFILE $buffer;
	}
	close OUTFILE or die "Close:$!";
	$x++;
}