Snippet Library

none

<!---Body--->

 sub file_rep
{
my ($replace,$replacement,$html) = @_;

#be carful about cgi security if parsing value

$html =~ s/$replace/$replacement/;

retu\r\n $html;
}

my $html;

open(file,"C:\windows\deskop\files.html") || die("This file will not open");
$html .= $_ while(<file>);
close(file);

$html = &file_rep("<!--tag-->","<b>bold text</b>",$html);

print "Content-type: text/htmlnn";
print $html;