如何使用AnyEvent和Perl并行运行外部命令

我是否在下面的示例中正确地执行了异步压缩多个文件？请不要担心运行系统命令zip而不是使用CPAN模块;这个例子纯粹是为了演示运行异步进程的想法……

#!/bin/env perl
use strict; 
use AnyEvent;
use AnyEvent::Util;

my $s1    = time;

my $quit_program = AnyEvent->condvar(
    cb => sub {
        warn "Done async";
    }
);

my $result;
$quit_program->begin( sub { shift->send($result) } );

for my $file (@files) {
    $quit_program->begin;

    my $cv; $cv = run_cmd [qw(zip),"${file}.zip",$file],"<","/dev/null",">","2>","/dev/null";

    $cv->cb (sub {
        shift->recv and die "command failed";

        # undef $cv;
        $quit_program->end;
    });
}

$quit_program->end;   # end loop
my $foo = $quit_program->recv;
say "Total elapsed time: ",time - $s1," ms";