Select Code to Download

  uploads          => {
                        SourceFile_1 => bless({
...
                              type => "image/jpeg",
                            }, "Catalyst::Request::Upload"),
                      },

        #Get source file and save it to disk.
        my $sourceFilePath = $c->req->param("FileName_" . $i);
...
        my $result;
        $result = $c->req->uploads->{"SourceFile_" . $i}->copy_to($fil
+eName)
            or $c->error("no copy.\nfrom:".$c->req->uploads->{"SourceF
+ile_" . $i}->tempname."\nto:$fileName \nsyserr: $!");

[info] *** Request 5 (0.079/s) [1115] [Fri Mar 26 14:04:22 2010] ***
[debug] File Uploads are:
...
| /upload_photos                                             | 0.00240
+3s |
| /end                                                       | 0.00042
+8s |
'------------------------------------------------------------+--------
+---'