my $srandSeed = rand (2**31);

srand ($srandSeed);