Various perl code snippets.