Select Code to Download

sub do_tree {
# --------------------------------------------------------
...
  do_tree($child) for my $child (@children);
  print "</ul></li>\n";
}

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))