Syntax Highlight?

I am testing syntax highlight for for posting in dreamwidth. Generated code was done using Emacs Org Mode.

sub subroutine(){
    print $cow;
}

Yet another Syntax Highlight

Yet another test, this time from GNU Source Highlight

my $cow;

sub procedure () {
  print $cow;
}

How to wash a cat

1. Put both lids of the toilet up and add 1/8 cup of pet shampoo to the water in the bowl.
2. Pick up the cat and soothe him while you carry him towards the bathroom.
3. In one smooth movement, put the cat in the toilet and close the lid. You may need to stand on the lid.
4. At this point the cat will self agitate and make ample suds. Never mind the noises that come from the toilet; the cat is actually enjoying this!
5. Flush the toilet three or four times. This provides a "Power Wash" and "Rinse".
6. Have someone open the front door of your home. Be sure that there are no people between the bathroom and the front door.
7. Stand well back, behind the toilet as far as you can, and quickly lift the lid.
8. The cat will rocket out of the toilet, streak through the bathroom, and run outside where he will dry himself off.
9. Both the toilet and the cat will be sparkling clean.

Yours Sincerely,

The Dog

PS. Oldie but goodie. :)

Generate Lorem Ipsum in newLisp

The following code gets the Lorem Ipsum dummy text from http://lipsum.com. This is written in newLisp .

;; This code is in newLisp
;; 
;; Use the lipsum generator to generate Lorem Ipsum dummy paragraphs / words / bytes.
;;
;; Lorem Ipsum courtesy of www.lipsum.com by James Wilson
;;
;; @param what in "paras","words","bytes"]
;; @param amount of paras/words/bytes (for words minimum is 5, for bytes it is 27)
;; @param start always start with 'Lorem Ipsum' "true"/"false"

(define (lipsum what amount start)
   (setq lipsum-buffer (get-url (format 
     "http://www.lipsum.com/feed/xml?what=%s&amount=%d&start=%s" 
     what amount start)))
   (setq lipsum-list (xml-parse lipsum-buffer 7))
   (nth 1 (first (nth 2 (first (nth 2 (first lipsum-list)))))))


(lipsum "paras" 2 "true")