Report abuse 

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

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