Select Code to Download

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

  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");