$ perl my_day.pl sad