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


in reply to Aaah, spring (A Very Special Perlmonks Contest)

sub window { while ($waiting) { last if hark($event_ref); } if ($event_ref->{'rock'} eq 'brick') { sleep; } } # Hark! What rock through yonder window breaks? # It is a brick and Juliet is out cold