how boring is that
talk to computers all day
and yet talking perl

open boredom, time;
read boredom, $heart, 10 or warn;
chomp $heart, print or die;
[download]

Yeah, true:

Warning: something's wrong at - line 2.
[download]