perl log snippet