in reply to "Can't open perl script..." :-(

In the same directory what happens when you
type readwrite.pl

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."