Don't forget to use > to write or >> to append:

if(open FILE, ">c:\\temp\\$filename") {
...
[download]

Also, if you just want to get the name of the file from $filename, then use File::Basename, it comes with the standard perl distribution:

use File::Basename;
my $full_path = $request->upload($filename);
my $filename  = fileparse($full_path);
[download]

It also wouldn't hurt to die if $filename is undefined:

my $filename  = fileparse($full_path);
die "couldn't parse the file name" unless $filename;
[download]

Hope this helps - UPDATE: in retrospect, I would follow thpfft's advice, take another approach.

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--