Select Code to Download

  $p->insert( table => { border=> 1}, 'tr', 'td')

  <p><table border="1"><tr><td>original content of p</td></tr></table>
+</p>

#!/usr/bin/perl -w
use strict;
...
<open1 type="head1">
This is test. <em type="italic">emp</em> this <i>emp</i>  is <em type=
+"bold">emp</em> test.
</open1>