perl __data__ buzzav