Select Code to Download

use IO::Socket;
use EV;
...

       print "in=$in\n";
}

my $w = EV::io $client, EV::READ, \&handle_client;