Newer perls call srand() for you implicitly. What version are you using?