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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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