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

##</code><code>##

-bash-2.05b$ ./teletype.pl 
Inside at ./teletype.pl line 13.
Accepted new socket
Inside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
Inside at ./teletype.pl line 13.

^C
-bash-2.05b$

##</code><code>##

Inside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
aInside at ./teletype.pl line 13.
Inside at ./teletype.pl line 13.