As an aside, $file =~ /.*\\(.*\.(gif|jpg))/ is a bad way to get the filename. Unless this will be used on an intranet where only Windows operating systems will be able to access the script, your script will not do what you want if someone on a *nux or mac machine accesses the script. You should use one of the file0related modules to grab the name instead:

use File::Basename;

my $file = $q->param('upfile') || '';
$file = basename($file);
[download]