Created
February 7, 2017 16:38
-
-
Save kckrinke/c06b5aca96a0769b4e38760f0b3c1fff to your computer and use it in GitHub Desktop.
My take on Larry Wall's classic work of art; the Black Perl poem. Parses and runs with perl v5.20.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
no warnings; | |
BEFOREHAND: close door, each window & exit; wait until time. | |
open spellbook, study, read (scan, $elect, tell us); | |
write it, print the hex while each watches, | |
reverse its, length, write, again; | |
kill spiders, pop them, chop, split, kill them. | |
unlink arms, shift, wait & listen (listening, wait), | |
sort the flock (then, warn "the goats" & kill "the sheep"); | |
kill them, dump qualms, shift moralities, | |
values aside, each one; | |
die sheep? die to : reverse { the => system | |
( you accept (reject, respect) ) }; | |
next step, | |
kill `the next sacrifice`, each sacrifice, | |
wait, redo ritual until "all the spirits are pleased"; | |
do { it => "as they say" }. | |
do { it => (*everyone***must***participate***in***forbidden**s*e*x*) }. | |
return last victim; package body; | |
exit crypt (time, times & "half a time") & close it, | |
select (quickly) & warn your (next victim); | |
AFTERWARDS: tell nobody. | |
wait, wait until time; | |
wait until next year, next decade; | |
sleep, sleep, die yourself, | |
die @last |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment