Select Code to Download

$File_Name = Get_File_Name(param('filename'));

sub Get_File_Name{
...
    $full_name    =~ s!\s!\_!g;          # Replace whitespace with _
    return($full_name);
}

storeFiles($File_Name, $Directory);

#stores uploaded files
...
    while( read($filename, $data, 1024) ){ print STORAGE $data;}
    close STORAGE;
}