Perl-Catalyst-AsyncExample