perl setting