#Get source file and save it to disk. my $sourceFilePath = $c->req->param("FileName_" . $i); my $fileName = $absGalleryPath . get_safe_file_name($sourceFilePath); $c->log->warn('new filename is '.$fileName); $c->log->warn('upload object is: '.$c->req->uploads->{"SourceFile_" . $i}); my $result; $result = $c->req->uploads->{"SourceFile_" . $i}->copy_to($fileName) or $c->error("no copy.\nfrom:".$c->req->uploads->{"SourceFile_" . $i}->tempname."\nto:$fileName \nsyserr: $!");