#-#############################################
sub new {
#-#############################################
   my $invoc = shift;
   my $class = ref $invoc || $invoc;
   my $self = {};
   
   ($config, $io) = @{shift()};
   
   bless $self, $class;
   return $self;
}