my $uuid = sprintf('%08X-%04X-%04X-%04X-%04X%08X',
   unpack 'V v v n nN', pack 'H*', $_);