td(img({-src=>'/css/ico/notepencil32.png', -alt=>'ahoj', -height=>'23', -width=>'23' -id=>'myid'}))
                                                                                    ^

##</code><code>##

$ perl -wMCGI=:standard -le"print img({-src=>'/css/ico/notepencil32.png', -alt=>'ahoj', -height=>'23', -width=>'23', -id=>'myid'})"
<img height="23" src="/css/ico/notepencil32.png" id="myid" width="23" alt="ahoj" />