You will have to use $comp->rdo instead of $comp->reval when using a file name.

Uncomment the two Safe lines and comment the 'do' line.

then try this print statement:

print Data::Dumper::Dumper(%Safe::Root0::Log_rooms);
[download]

You can set the name space to something more readable too.

my $comp = new Safe 'CFG';

print Data::Dumper::Dumper(%CFG::Log_rooms);
[download]

pvb.