use Safe;
   my $config = Safe->new;
   *{ $config->varglob($_) } = $handler{$_}
      for keys %handler;
   $ok = $config->reval( $cfg_str );
   # Or: $ok = $config->rdo( $config_source );
   $err = $@;