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