perl Hook aop attribute  demo. less Mosss .............