Select Code to Download

%CFG = (
    'servers' => {
...
    },
    'temp' => 'remove me'
);

# Read a configuration file
#   The arg can be a relative or full path, or
...
    print(STDERR $err, "\n");
    exit(1);
}

# Add last access time
$CFG::CFG{'servers'}{'SRV1'}{'last_access'} = time();
...
    print(STDERR "ERROR: Failure opening log file: $!\n");
    exit(1);
}

use Data::Dumper;

...
    print(STDERR $err, "\n");
    exit(1);
}

perl -c my_cfg.cfg