You all know those boring projects, don't you? Sometimes they are so boring that you start to write perl poetry, so here is my first try :)
my @work = ('currently boring project') && my $boss = 'chilled'; while (@work) { sleep until $boss =~ /angry/ or grep (/new interesting + project/, @work); }

giant