Select Code to Download

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

if(-f "$bookfile"){
  undef $/;
  open(FILE, "+<$bookfile") 
...
  else{binmode(FILE);}
     $bookfile_contents = <FILE>;
  $/ = "tr/\n /";