#!/usr/local/bin/perl use strict; use warnings; use HTML::TreeBuilder; my $h = HTML::Element->new_from_lol( ['html', ['hr'], ['br'], ['img', {src => 'pic.jpg'}], ], ); print $h->as_HTML __DATA__ output: