trantor has a good point about the difficulty of generating random numbers. To generate your initial seed you should call rand once (as tye notes in Perl's auto srand() RE: a random sort of list, this is pretty good) or use something like Math::TrulyRandom instead.

Rolling your own based on the time is frequently inadequate and better solutions are readily available.