Report abuse 

1
2
3
4
5
6
7
8
9
10
11

use HTML::Element;
my $h = HTML::Element->new_from_lol
  (
   [ level1 =>
     [ level2 =>
	[ 'level3']
     ],
   ]
  );

warn $h->as_HTML('<>&', "\n\t");