perl -MCGI=:standard -e'print p({-id=>"foo"},"Bar")'
<p id="foo">Bar</p>