if($demo_mode){ print "Content-type: text/html\n\n"; print qq~ ~; }else{ &get_input; $document_source=~s!<=textarea!$file"); print F "$document_source"; close(F); print "Content-type: text/html\n\n"; print qq~ ~; }#else demo 1;