Perl中设置毫秒级暂停

通常我们写perl脚本暂停是使用sleep来实现，不过使用sleep有个问题，sleep函数最高精度为秒，但如果我们想暂停的时间仅为0.25秒时怎么办呢？
有两种解决办法：
引入Time::HiRes模块

use strict;
use warnings;
use Time::HiRes qw(usleep nanosleep);
# 1 毫秒 == 1000 微秒
usleep(1000);
# 1 微秒 == 1000 纳秒
nanosleep(1000000);

如果你不打算在你的机器上为Perl多增加一个模块的话我们这里提供第二种解决方法
使用select函数

# 暂停250毫秒即0.25秒，这里有四个 参数我们只需要改第四个参数即可
select(undef, undef, undef, 0.25);