log snippet for perl