I was actually researching this issue recently. It turns out that by default, Perl calls srand() with /dev/random (or an equivalent on your platform). Timestamps aren't involved. See util.c and search for Perl_seed.