Select Code to Download

    while ( <$filehandle> ){
        print UPLOADFILE;
    }

{
    local $/ = \65536;
...
        print UPLOADFILE;
    }
}