Select Code to Download

use Unicode::CharName qw/uname/;
use Unicode::UCD qw/charinfo/;
...
  $c = ord($_);
  print uname($c) .":\t" . charinfo($c)->{code} . ":\t$c\n";
}

;; I stick my personal libs here:
(setq load-path (cons "~/elisp/" load-path))
...
(setq auto-mode-alist (cons '("\\.[Pp][LlMm]\\'" . cperl-mode) auto-mo
+de-alist))
(setq auto-mode-alist (cons '("\\.t\\'" . cperl-mode) auto-mode-alist)
+)
(setq auto-mode-alist (cons '("\\.pod\\'" . cperl-mode) auto-mode-alis
+t))

# Begin a fold mark:

...
# }}}

# The  "# }}}" ends the fold mark

# Begin a fold mark:

# {{{ A space after the three { is required....

# The  "# }}}" ends the fold mark