Select Code to Download

#server
use strict;
...


print $sock "abcd\n";

use strict;
use warnings;
...
if ($sel->can_read()) {
    print "can read\n";
}