Added debug message to perl snippets