Ignore the "my $count" -- that's left over from an earlier experiment. Apart from the while loop, this is based on an example in the Time::HiRes documentation.