Select Code to Download

    ClientConnected => sub {
      print "got a connection from $_[HEAP]{remote_ip}\n";
...
      sysread(INFILE,my $buffer='',65535);               
      $_[HEAP]{client}->put($buffer);     
    },

package cbcfilter;

...
}

1;