AnyEvent example
file: bin/anyevent_example.pl 1: #!/usr/bin/env perl 2: use 5.016; 3: use AnyEvent; 4: 5: $| = 1; 6: print "enter your name> "; 7: my $name; 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; 20: undef $wait_for_input; 21: print "your name is $name\n";