#!/usr/bin/perl

print "Content-Type: text/plain\n\n";

my $uuid_str;
if (@ARGV) {
  $uuid_str = $ARGV[0];
} else {
  eval {
    require Data::UUID;
    my $ug = new Data::UUID;
    $uuid_str = $ug->create_str;
  };
  if ($@) {
    $uuid_str = `uuidgen`;
    $uuid_str =~ s/\r?\n?$//;
  }
}
my @stuff = split /-/, $uuid_str;
print $uuid_str, "\n\n";
print "{ 0x$stuff[0], 0x$stuff[1], 0x$stuff[2], \\\n";
print "  { 0x@{[substr($stuff[3],0,2)]}, 0x@{[substr($stuff[3],2,2)]}, ";
print "0x@{[substr($stuff[4],0,2)]}, 0x@{[substr($stuff[4],2,2)]}, ";
print "0x@{[substr($stuff[4],4,2)]}, 0x@{[substr($stuff[4],6,2)]}, ";
print "0x@{[substr($stuff[4],8,2)]}, 0x@{[substr($stuff[4],10,2)]} } }\n";