#!/usr/bin/perl

use strict;
use warnings;

use Auto::Config;

my $root_local = Auto::Config::config->get(root => 'local');

# This line produces the error message
# config->set('root', remote => 'docroot_new');

Auto::Config::config->set('root', remote => 'docroot_new');

print "$root_local\n";