Select Code to Download

 use IO::Socket::UNIX;
 use strict;
...
          close $client;
      }
 }

 use IO::Socket::UNIX;
 use strict;
...
 ...

 }

50,000 records processed:  ( results are number/second )

...
                     Writes:      2,953 | 1,152
                     ReadNext:   35,138 | 2,870
                     ReadPrev:   34,236 | 2,616