---- upload.cgi ここから ------
$common = getParameter();
$filename = $common->{param}->{file_name};

$file="";
while($bytesread = read($filename, $buffer, 2048)) {
$file .= $buffer;
}

open(OUT, "> ./$ファイル名");
print(OUT $file);
close(OUT);
exit;

sub getParameter() {
my $this;
$cgi = new CGI;

for my $name ($cgi->param) {

if (@{$cgi->param_fetch($name)} > 1) {
$this->{param}->{$name} = $cgi->param_fetch($name);
} else {
$this->{param}->{$name} = $cgi->param($name);
}

$this->{param}->{$name} = jcode->set(\$this->{param}->{$name}, "sjis")->euc;
}
return $this;
}
---- upload.cgi ここまで ------