sub GetUnique
{
    return &Digest::SHA1::sha1_hex(join("", map { chr rand 256 } (1) x (shift || 64)));
}