AnyEventでファイルの読み込み

anyevent.pl

use 5.010;
use strict;
use warnings;
use autodie;
use AnyEvent;

open my $fh, '< hoge.txt';
my $cv = AnyEvent->condvar();
my $reader = AnyEvent->io(
   fh => $fh,
   poll => 'r',
   cb => sub {
     print <$fh>;
     $cv->send();
   }
);

$cv->recv();