Select Code to Download

my $sslSocket = IO::Socket::SSL->new(
    Listen             => 5,
...
  $server->listen(
    handle => $sslSocket
  )->get;

while(1){
  // something before
...
  }
  // something after
}