備忘録 - ファイルアップロード(binary) -
$filename = $query->param('upload_file'); #"$filename"でファイル名、$filenameでファイルハンドラ
my $save_dir = '/h/h/image';
open (OUTFILE,"> $save_dir/$filename") || die('ディレクトリが開けませんでした');
my ($bytesread, $buffer);
while ($bytesread=read($fh,$buffer,1024)) {
print OUTFILE $buffer;
}