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