in reply to
Ned help in perl
As choroba pointed out above, this isn't a code writing service and, while we may like to show off occasionally, you gain no benefit from your course if you don't try and solve the assigned problems. (choroba's advice on markup should also be heeded as your post is not an inviting read.)
That said if you follow up with an honest demonstration of effort and genuine questions regarding why things aren't working the way you expect we are a friendly bunch and will offer useful advice but we're not here to do your homework and thus prevent you learning anything.
print "Good ",qw(night morning afternoon evening)[(localtime)/6]," fellow monks."