$filename = $formdata{"file"};
$filename =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$upload_filehandle = upload($formdata{"file"});
&upload_file;
	sub upload_file {
		$filepath=$filename;
		if ($filepath =~ /([^\/\\]+)$/) {$filename="$1";}
		    else    {$filename="$filepath";}
	   		$filename =~ s/\s+//g; 
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> )
{print UPLOADFILE;}
close UPLOADFILE;
}
if ($to_upload == 1) {$formdata{'file'} = $filename}; #ensures just filename written to database