Select Code to Download

 my $sslSocket = IO::Socket::SSL->new(
    Listen             => 5,
...
    ReuseAddr          => 1,
    Blocking           => 0
  );

  my $server = Net::Async::WebSocket::Server->new(
    ...
  );

  my $loop = IO::Async::Loop->new;
  $loop->add( $server );
...
  $server->listen(
    handle => $sslSocket
  )->get;

  while($loop->loop_once(0.0001) > 0) {
  };