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