for my $m (sort keys %meta)
{
  my $m_el = HTML::Element->new('meta');
     $m_el->attr('0name',$m);
     $m_el->attr('1content',$meta{$m});
     $head->push_content($m_el);
}

my $out = $body->as_HTML('<>&','      ',{});
$out=~s/0name/name/g;
$out=~s/1content/content/g;
print $out;