change perl icons