update perl scripts