Actually, in modern Perl, you don't need to explicitly call srand. Let Perl do it for you.