Fix perl open snippets
rename open snippets