C:\test>perl -mCGI -le"$q=new CGI; print $CGI::VERSION; $CGI::XHTML=1; print $q->br;"
2.91
<br></br>

##</code><code>##

1948  $break = $XHTML ? "<br />" : "<br>";
2116  $break = $XHTML ? "<br />" : "<br>";