Select Code to Download

LogSimple
DEC::Project

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

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

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

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

sub exit_routine {
for my $serial ( keys %server_objects ) {
...
}

};