perl Data-UUID