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

##</code><code>##

Warning: something's wrong at - line 2.