Select Code to Download

my $content;
open (FILE,"file.html");
...
    $content .= $_;
}
close(FILE);

$content = "<!--\n" . $content . "\n-->";

my $content = param('content');
$content =~ s/<!--\n//;
$content =~ s/\n-->//;

open (FILE,">file.html");
    print FILE $content;
close(FILE);