#!/usr/bin/perl use warnings; use strict; use HTML::TreeBuilder; my $content = do{local $/;}; my $root = HTML::TreeBuilder->new_from_content($content); $root->attr('_decl', HTML::Element->new('~declaration', text => 'DOCTYPE html PUBLIC "HTML4"', ) ); print $root->as_HTML; __DATA__ declaration

declaration