$text =$data{"Text"}; #Name of Textbox in form
$text =~ s/</&lt;/g;
$text =~ s/>/&gt;/g;

##</code><code>##

if(-f "$bookfile"){
  undef $/;
  open(FILE, "+<$bookfile") 
   || &debug("Oops, I cannot read the bookfile $bookfile: $!");
  if($opsys eq "unix"){flock(FILE, 2);}
  else{binmode(FILE);}
     $bookfile_contents = <FILE>;
  $/ = "tr/\n /";