#snip of highlander.t
  my $generated_html = ptree($tree, "$root.gen");
  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age");

##</code><code>##

  my $generated_html = ptree($tree, "$root.gen");
  my $file = File::Slurp::read_file("$root.exp");
  $file =~ s/\x0d+\x0a/
/g;
  is ($generated_html, $file, "HTML for $age");