/dev-perl/Tie-ToObject/