#!/usr/bin/perl

use strict;
use OurApp;

my $object = OurApp->new( conf_file => "/home/trs80/ourapp.conf",
                          conf_format => 'equal' );

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

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

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