#!/usr/bin/perl -wl
use strict;
use Inline C => <<'END_C';

SV* GenerateSessionID() {

    char uuid[16];    // buffer

    // fill buffer, i.e. mimic your XSessionID()
    int i;
    for (i=0; i<16; i++) {
        uuid[i] = 0xA0 + i;
    }

    return newSVpvn(uuid, 16);
}
END_C

my $uuid = GenerateSessionID();
print join ' ', unpack("(H2)*", $uuid);