Select Code to Download

my $readsocks  = IO::Select->new($new_client);
my $writesocks = IO::Select->new();
...
      # Write to a socket.
   }
}

#!/usr/bin/perl -w
...
        }
}