Add a snippet for perl