update perl controller