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

##</code><code>##

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

##</code><code>##

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