If you are having problems with only getting one socket, maybe your

while(@ready = $select->can_write) {.....}
[download]

is the wrong while test. Maybe you want to add those that can_read too? If you search google and groups.google for socket examples, you will find they vary depending on code design, but they usually use can_read, or sometimes a while(1){} with can_read and can_write handled in differentl code blocks in the while(1) loop. Just a guess. :-)

Additionally, IO::Socket has a $sock->connected method that is a useful test to use in a while(1) loop.