my %playerlist = playerData::getPlayerList();
		while ( my ( $id, $player ) = each ( %playerlist ) )
		{
			if ( modules::get_module( "bhs" ) )
			{
				POE::Session->create
				( inline_states =>
					{
						_start => sub
						{
							$_[HEAP]->{next_alarm_time} = int( time() ) + 5;
							#$_[KERNEL]->alarm( end => (int(time() ) +3) => $player->{'name'}
							$_[KERNEL]->alarm( end => $_[HEAP]->{next_alarm_time} );
						},
						end => sub 
						{
							modules::RenRemCMD ( "player_info" );
							brIRC::ircmsg( "7 Player 4 $player->{'name'} 4 $player->{'ip'}  7 Ping 4 $player->{'ping'} 7Serial 4 $player{'serial'} ", "A" );
						}
					}
				);
			}
		}