my $sel = $sock->select;
$sel->can_read(1);