Added some snippets for perl.