#!/usr/bin/perl -sI../lib
##
## unique -- generates a secure, unique object name and initiates 
##           the object.
##
## Copyright (c) 1999, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id$

use Persistence::Object::Simple; 
use Crypt::Random; 

my $random = Crypt::Random::makerandom ( Size => 80 ); 
my $x = new Persistence::Object::Simple __Dope => "./dope/", __Random => $random;
$x->commit ();

