perl -e 'use APR::UUID;print APR::UUID->new->format;'