Not without the -X flag it doesn't:

Hash %window missing the % in argument 1 of each() at black.pl line 1.
Hash %watches missing the % in argument 1 of each() at black.pl line 3
+.
Array @them missing the @ in argument 1 of pop() at black.pl line 5.
Array @moralities missing the @ in argument 1 of shift() at black.pl l
+ine 8.
Hash %aside missing the % in argument 1 of values() at black.pl line 9
+.
Hash %one missing the % in argument 1 of each() at black.pl line 9.
Hash %sacrifice missing the % in argument 1 of each() at black.pl line
+ 13.
Use of "do" to call subroutines is deprecated at black.pl line 15.
Use of "do" to call subroutines is deprecated at black.pl line 16.
[download]

With -X it does compile fine though:

    # perl -X -c black.pl
    black.pl syntax OK
[download]

I've managed to get Black Perl to run without warnings under Perl 5.20; but 5.22 seems to kill it. Here's my 5.20 version:

no warnings;

BEFOREHAND: close door, each window & exit; wait until time.
     open spellbook, study, select it, confess, tell, deny;
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, reverse system
          you accept (reject, respect);
next step,
     kill next sacrifice, each sacrifice,
     wait, redo ritual until "all the spirits are pleased";
     do it, "as they say".
*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 next victim;
AFTERWARDS: tell nobody.
     wait, wait until time;
     wait until next year, next decade;
          sleep, sleep, die yourself and
          rest at last
[download]