Select Code to Download

use IO::Socket qw( );

...
      }
   }
}

sysread( $sock, $buf, 32*1024, length($buf) )
   or do { $sel->remove( $sock ); next; };
...
while ( my ($msg) = $buf =~ s/^(...)// ) {
   process($msg);
}

use IO::Socket qw( );

...
      }
   }
}