perl -MData::UUID -le 'print Data::UUID->new->create_str'