%Log_rooms = (
               "gallery"  => { 'BM_shutts_south_00' => 1, 'BM_shutt_north_00' => 1  }
             );

##</code><code>##

my $config_file ="/etc/test.conf";
my %Log_rooms;
t
  if (-e $config_file) {
		print "Reading Configuration from $config_file \n\n";
		my $return = do $config_file ;
		warn "couldn't parse $config_file: $@" if $@;
		warn "couldn't do $config_file: $!"    unless defined $return;
		warn "couldn't run $config_file"       unless $return;

  } else {
		print "Using Default Configuration \n\n";
t   
		%Log_rooms = (
		               "default"  => { 'BM_shutts_south_00' => 1, 'BM_shutt_north_00' => 1  },
		              );

...

package Cybro_Item;

...

sub get_extra_rooms_for_log {
    my($self,$var_name) = @_;
	my %match=undef;
	
	while(($room, $room_hash) = each(%Log_rooms)) {
...


##</code><code>##

use Cybro_Items;