I found these by searching the site for 'second'.

Oooh! Oooh! Don't forget select(undef, undef, undef, $ms); for sleeping for minute amounts of time. (sleep() sleeps for 1 or more seconds, and (depending on what platform) will sleep either more or less than you want it to.)

redmist
Silicon Cowboy
redmist::webnode

use Curses;
...
napms(10);
[download]

Depending on your system resolution, this may or may not wait ten seconds, in which case, it will round up to the next time resolution allowed. For modern systems, it's most likely that this will work well.

Unfortunately, if you wish to interrupt a command after 10 ms, this is nearly impossible without threads (which Perl doesn't manage reliably) and alarm has second resolution only. For reading in from file descriptors, look in select (the non-Perl C-ish version which allows you to wait a specified amount of time for incoming data.)

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

Then you want as mentioned by Fastolfe, Time::HiRes, with code something like this:

use Time::HiRes qw(gettimeofday);
$th0 = gettimeofday;

#your code goes here

$th1 = gettimeofday;
print "<P>Script took: ", sprintf ("%5.3f",($th1 - $th0)), " seconds t
+o the millisecond att www.yoursite.com";
[download]

/jeorgen

If one uses un*x, a 'time perl script' would give time in millisecs as well.

Jeroen
"We are not alone"(FZ)