in reply to Multi threading

It's where you fail to check a return value on line 32 obviously
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom