yeah, yeah, it's another song (well, small portion of a song anyway) perl-ized.. tough, live with it.. it was just dyin to be on here!!
anyway...
-Syn0
(bah.. once again, I've been awake waaayyy too long <big sheepish sleep-deprived grin>)
anyway...
Everybody sing along!! woohoo!!#!/usr/bin/perl # .................................. # you can ignore this if you want... # .................................. %perl = ('monk' => chr(80) . chr(105) . chr(120) . chr(105) . chr(101) . chr(115) ); sub heaven { print "$perl{@_[0]}\n"; } $man = 5; # ........................... # let the fun begin # ........................... { if ($man == 5) { $Devil = 6; if ($Devil == 6) { $God = 7; $this = 'monk'; &heaven($this); } } }
-Syn0
(bah.. once again, I've been awake waaayyy too long <big sheepish sleep-deprived grin>)
Back to
Perl Poetry