Select Code to Download

#!/usr/bin/env perl

...
print "Listening on $host\n";

$cv->wait;

EV: error in callback (ignoring): AnyEvent::CondVar: recursive blockin
+g wait attempted at server.pl line 29.