perl -MCGI -e "print CGI::escapeHTML(qq(Don't do that!\n));"
Don't do that!