sub load {
    my ($self, $filename) = @_;
    open (LOGGERS, "< " . $filename);
    my ($line);
    while ($line = <LOGGERS>) {
	chomp $line; 
	if (!$line) { last;}
	my @parms = split /:/, $line;
	my $loggertyp = shift @parms;
	my $logger = ${loggertyp}->new();
        $logger->systemname($self->systemname);
        $logger->subject($self->subject);
	while (@parms) {
	    my $parmtyp = shift @parms; 
	    my $parmvalue = shift @parms;
	    ${logger}->${parmtyp}($parmvalue);
	} 
	$self->loggers($logger);
    }
    close(LOGGERS);
}