Added perl testing snippets