http://www.perlmonks.org?node_id=158843


in reply to method of ID'ing

use MD5;
my $MD5 = new MD5();
$MD5->add( $$ . rand() . time() );
my $id = $MD5->hexdigest;

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In Section Seekers of Perl Wisdom