my $uniqueId = time()*10000 + int rand (10000);
$uniqueId = $uniqueId*100 + ( 
   ( ( $uniqueId div 10000000) % 10 ) * 
   ( ( $uniqueId div 100 ) % 10 ) );