#!/usr/local/bin/perl

use MD5;                                                              
use Time::HiRes qw /time/;

my $UniqueId = substr(MD5->hexhash(time(). {}. rand(). $$. 'SomeText'), 0, 32);

$UniqueId=~tr/[a-z]/[A-Z]/;
$UniqueId=~s/^((\d|\w){8})((\d|\w){4})((\d|\w){4})((\d|\w){4})((\d|\w)*)$/\{$1\-$3\-$5\-$7\-$9\}/;

print $UniqueId;

exit(0);