#files are open already
print "Write to diary. Type quit when finished.";
while (($_=<STDIN>) != "quit\n")
   {
   print FILE $_;
   print DIARY $_;
   }