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