For delays of finer granularity than one second,the 07001 module (from CPAN,and starting from Perl 5.8 part of the standard distribution) provides usleep().

实际上，它提供usleep()(以微秒为单位)和nanosleep()(以纳秒为单位)。你可能想要usleep()，它应该让你处理更容易的数字。 1毫秒睡眠(使用每个)：

use strict;
use warnings;

use Time::HiRes qw(usleep nanosleep);

# 1 millisecond == 1000 microseconds
usleep(1000);
# 1 microsecond == 1000 nanoseconds
nanosleep(1000000);

如果您不想(或不能)加载模块来执行此操作，您还可以使用内置的select()功能：

# Sleep for 250 milliseconds
select(undef,undef,0.25);