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); }
[download]

giant