$conn->on( disconnect => sub { my $disconnectPlayer = $self->{players}->getPlayerWithSocket( $conn ); $SIG{ALRM} = sub { $self->playerDisconnected() }; $self->{playerDisconnected} = 1; $self->{disconnectedPlayerSocket} = $conn; alarm( 1 ); } );