sub uuid {
    my $data = '';

    for(my $i = 0; $i < 16; $i++) {
        $data .= chr(int(rand(256)));
    }

    return join('-',unpack('H8H4H4H4H12', $data)); 
}