update example perl file