chh@scallop chh> perl '-MCGI qw(:standard)' -le 'print td({-BOB => "foo", -CAT => "bar"}, "lala")'
<TD BOB="foo" CAT="bar">lala</TD>
chh@scallop chh>