Select Code to Download

Textfile = "file.htm";
open (FILE,"$FORM{'TextFile'}");
...
    $text =~ s/A\/an/A/g;
    $text =~ s/a\/an/a/g;
print $text;

open(OUT,">$Textfile") or die $!;
print OUT "$text\n" or die $!; 
close(OUT) or die $!;