#!/usr/bin/perl
use Wrap;

use CGI;

$q = new CGI;
open(FILE, "form.html") or die $!;
 print <FILE>;

open BOOK, ">>book.txt";
print BOOK $q->param("text")."\n";

print "<pre>\n"; 
open BOOK, "book.txt" or die $!; 
print <BOOK>; close BOOK;
print "</pre>\n";

print "</body></html>\n";