#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Fcntl ':flock';
use FindBin '$Bin';
use Text::Table::Tiny;
    
$Text::Table::Tiny::COLUMN_SEPARATOR = '|';
$Text::Table::Tiny::ROW_SEPARATOR = '-';
$Text::Table::Tiny::CORNER_MARKER = '+';
$Text::Table::Tiny::HEADER_ROW_SEPARATOR = '=';
$Text::Table::Tiny::HEADER_CORNER_MARKER = 'O';

#Tabellentest.pl

my $rows = [
        # header row
        ['Name', 'Rank', 'Serial'],
        # rows
        ['alice', 'pvt', '123456'],
        ['bob',   'cpl', '98765321'],
        ['carol', 'brig gen', '8745'],
    ];