http://www.perlmonks.org?node_id=99288

A reasonable tribute (i think) to the voting/experiance/level system here in the monastery , enjoy :
#!/usr/bin/perl bless \@monks; $initiate = recv(MONASTERY,$enlightenment,$daily,0); $novice = seek(MONASTERY,$enlightenment,0); $acolyte = sleep && eat && study $SOPW && redo; $scribe = require disipline; $monk = print MONASTERY rand($wisdom); $friar = accept(MONASTERY,applause); $abbot = seek(MONASTERY,$enlightenment,2); $bishop = join 'E','d','i','t','o','r','s'; $pontiff = push @monks, $improve; $saint = 1;

remeber the immortal word's of Socrates who said, "I drank what ?"