https://www.foo.be/docs/tpj/issues/vol4_4/tpj0404-0015.html

The Perl Poetry Contest - The Perl Journal, Winter 1999

#!/usr/bin/perl
#
# asylum.pl
# by Harl

close (youreyes);
bind (yourself, fast);

while ($narcosis) {
   exists $to($calm);
   not calm;
}

accept the, anesthesia;
seek the, $granted, $asylum'
and wait;

stat ically;

unlink and listen (in, $complicity);

for (a, little) {
   system ("sync hronicity");
}