#!/bin/perl
use strict;
use warnings;

sleep;
pipe (drip, drip);
listen(drip, drip);

kill noises;
kill dripping;
close pipe soon, NOW;
sleep again;

listen (drip, drip);
sleep (not now);
exit (do it);
accept destiny, now;

alarm neighbors;
get the keys now, &;
open (up, &survey them);

crypt of,darkness;

not a single;
pipe here,anywhere;