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;

Yeah, true:

Warning: something's wrong at - line 2.