without Bread::Board

gistfile1.pl

my $log_file_name = "logfile.log";

my $logger = FileLogger->new( log_file_name => $log_file_name );

my $dsn = "dbi:SQLite:dbname=my-app.db";
my $username = "user234";
my $password = "****";

my $dbh = do {
    require DBI;
    DBI->connect(
        $dsn,
        $username,
        $password,
    ) || die "Could not connect";
};

my $application = MyApplication->new(
    logger => $logger,
    dbh    => $dbh,
);