...
while( my @ready = $client->can_read ) {
    warn "Inside";
    for my $fh (@ready) {
...