use Net::WebSocket::Server;

my $ws = Net::WebSocket::Server->new(
    listen      => 5000,
    tick_period => 1,
    on_tick     => sub {
        my ($serv) = @_;

        $_->disconnect( 1000, 'OK' ) foreach ( $serv->connections );
    },
)->start;