if (my @s = $select->can_write()) {
  for (@s) {
    if (print $_ $message) {
       print "message sent";
    } else {
       print STDERR "Could not write to socket: $!\n";
    }
  }
}