use HTML::Element '!DEFAULT'; print '', html( head( title("some html") ), body( h1( "some headline" ), p( {class => 'foo'}, "yadda yadda", br(), "more yadda" ), p( {class => 'bar'}, "yadda yadda yadda" ), table( {summary => 'table', border => 1}, Tr( map td($_), 'a' .. 'f' ), Tr( map td($_), 'g' .. 'l' ), Tr( map td($_), 'm' .. 'r' ), Tr( map td($_), 's' .. 'x' ), ), ), );