package BaseClass;

sub new {
  my $class = shift @_;
  my $self = {};
  $self = bless $self, $class;
  
  # Re-read the config file if it has changed...               
  my $mtime = ( stat(CONFIG_FILE) )[9];
  if ($mtime != $config_time) {
    ($config, $config_time) = &_read_config(CONFIG_FILE);
  }
  return $self;
}