Select Code to Download

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

sub Get_File_Name{
    if($ENV{HTTP_USER_AGENT} =~ /win/i){ 
...
    return($full_name);
}