# Copy a binary file to somewhere safe
        open (OUTFILE,">>/usr/local/web/users/feedback");
        binmode OUTFILE;
        while ($bytesread=read($filename,$buffer,1024)) { 
          print OUTFILE $buffer;
        }