The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

$cv->begin; $worker3->do( "P:Data" , sub { guard { $cv->end; }; return warn "Request died: $@\n" if $@; warn "Received response: @_\n"; });

$cv->begin; $SIG{INT} = sub { $cv->end };