Help for this page
my $sslSocket = IO::Socket::SSL->new( Listen => 5, ... $server->listen( handle => $sslSocket )->get;
while(1){ // something before ... } // something after }