Thanks for your reply anonymous. I made the following change ($file = $1) for your 2nd comment but not sure how to handle your 1st comment. Can you let me know how to implement 1st. Tried a number of modifications but none resolved my issue.

    my $outfile = "$upload_dir"."";
    my ($safe_file_name) = $outfile =~ /([-\@:\/\\\w.]+)$/;
    
    if ($file =~ /swf/ || $file =~ /high/ || $file =~ /low/) {
       $outfile .= $file;
       $safe_file_name = $1;
       $file = $1;
       #if (-e $outfile) {
        #    error_msg("File already exist in destination folder");
       #}
    } else {
       error_msg("Only '.swf' files and files with 'high' or 'low' in 
+the name will be uploaded.");
    }
    if (!$safe_file_name) {
        die qq{Disallowed characters in file $safe_file_name\n};
    }
[download]