LogSimple
DEC::Project

##</code><code>##

my $log = LogSimple->new(
        logdir => $logdir,
        logfile => $logfile,
        loglevel => $loglevel,
        verbosity => $verbosity,
        exit      => \&DEC::Project::exit_routine
);

##</code><code>##

my $server = DEC::Project->new(
        serial => '17353',
        log    => $log,
);

##</code><code>##

$log->err("Something went wrong",1);

##</code><code>##

$server_objects{$options{'serial'}} = \$self;

##</code><code>##

sub exit_routine {
for my $serial ( keys %server_objects ) {
        my $server = $server_objects{$serial};
        my @ret = $server->logout();
}

}

sub logout {
    my $self = shift;
print "logging out";
}

};