Added debug to perl snippets