my $var = $d->Dump;
$var =~ s/</&lt;/g;
$var =~ s/>/&gt;/g;

print '<pre>' . $var . '</pre>';