binmode UPLOADFILE;  
while ( <$upload_filehandle> ) 

##</code><code>##

while ($bytesread = $io_handle->read($buffer,1024)) {