1: sub upload_file {
 2:    $filepath=$filename;
 3:    if ($filepath =~ /([^\/\\]+)$/) {$filename="$1";}
 4:    else    {$filename="$filepath";}
 5:    $filename =~ s/\s+//g;
 6:    open UPLOADFILE, ">$upload_dir/$filename";
 7:    while (<$upload_filehandle>) {
 8:        print UPLOADFILE;   
 9:    }
10:    close UPLOADFILE;
11: }

12: $filename = $formdata{"file"};
13: $filename =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
14: $upload_filehandle = upload($formdata{"file"});
15: &upload_file;
16: if ($to_upload == 1) {
17:     $formdata{'file'} = $filename
18: }; #ensures just filename written to database

##</code><code>##

    $filename =~ s/\s*,\s*/,/g;