# Copy a binary file to somewhere safe
open (OUTFILE,">>/usr/local/web/users/feedback");
while ($bytesread=read($file,$buffer,1024)) {
     print OUTFILE $buffer;
}
close(OUTFILE); #Always make sure to close the file or it won't work.