AnyEvent example
file: bin/anyevent_example.pl 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; 20: undef $wait_for_input; 21: print "your name is $name\n";
i.e. we now print the name