在Perl中，我如何在没有轮询但有超时的情况下监视文件更改？

use File::ChangeNotify;

# 创建一个监视器对象，指定要监视的文件或目录
my $watcher = File::ChangeNotify->instantiate_watcher(
    directories => ['/path/to/directory'],
    filter      => qr/\.(txt|csv)$/,  # 只监视指定类型的文件
);

# 开始监视文件更改
while (1) {
    my @events = $watcher->wait_for_events(timeout => 10);  # 设置超时时间为10秒

    if (@events) {
        # 处理文件更改事件
        foreach my $event (@events) {
            print "File changed: " . $event->path . "\n";
        }
    } else {
        # 超时处理
        print "No file changes within timeout period.\n";
    }
}