And/or Time::HiRes given a sufficiently fast machine (one hopes that it takes less than a second to execute $i++ . . . :).