#!/usr/bin/perl

use My::Base;
use strict;

# access configuration data by name through AUTOLOAD

my $object = My::Base->new();

print $object->base_directory , "\n";

$object->base_directory("/home/otheruser/");

print $object->base_directory() , "\n";