class SendRecv {
   send{}
   recv{}
   new{}
}

class Server {
  use SendRecv;

  new { 
    my $sr = SendRecv->new();
    bless $class, { pool => [$sr] } 
  }
  ....
}