update perl snipet