http://www.perlmonks.org?node_id=1043765


in reply to Report generation using perl script

tail -f never returns, I'm going to make a wild guess that you iterate over the log file, however if the stream (from tail -f) doesn't return, then the stats you're gathering are never finished so your "And finally print the report" block is never executed, just guessing mind.

You could repeatedly scan the file, or re-run the 2and finally" block after each line, but without the code it's hard to know what the issue is.

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