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