class SendRecv {
   send{}
   recv{}
}

class Server {
  use base qw(SendRecv)
  ....
}