$ perl -MCGI=escapeHTML -le " print escapeHTML(qw/ < < < / ) "
&lt;