#!/usr/bin/perl -T
use warnings;
use strict;

use POSIX qw(strftime);

use lib 'blib/lib';
use Simba::DA;

my $now = strftime('%Y-%m-%dT%H:%M:%S', localtime());
mkdir('/var/log/simba');
open(my $log, '>>', '/var/log/simba/da.log.' . $now);
$log->autoflush(1);
my $da = Simba::DA->new({fh_log => $log});

$da->run();