/dev-perl/set-scalar/