AnyEvent example
file: bin/anyevent_example.pl @c3e99e4d 8: my $name_ready = AnyEvent->condvar; 9: 10: my $wait_for_input = AnyEvent->io ( 11: fh => \*STDIN, 12: poll => "r", 13: cb => sub { 14: $name = <STDIN>; 15: $name_ready->send; 16: } 17: ); 18: 19: $name_ready->recv;
plain old read from STDIN