#
# Note... Some html tags are disallowed:
#
if ( $FORM{'comments'} =~ /\<\!/ ||
(
$FORM{'comments'} =~ /src=/i &&
$FORM{'comments'} =~ /\</ ) ) {
print("took the liberty to hose your html, sorry<p>\n");
$FORM{'comments'} =~ tr/<>/()/;
}