Select Code to Download

 1: sub upload_file {
 2:    $filepath=$filename;
...
16: if ($to_upload == 1) {
17:     $formdata{'file'} = $filename
18: }; #ensures just filename written to database

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