Dynamic table output to STDOUT?

Question

Perl

Good afternoon, tell me how to organize the output of a dynamic table in STDOUT?
Once every 3 seconds, the script dumps its current values ​​to STDOUT, now it looks like this:

col1: 123 col2 123 col3: 234
col1: 123 col2 123 col3: 234
col1: 123 col2 123 col3: 234

I would like to see the table like this:

|   123 |   234 |   345 |   456 |   567 |   678 |   789 |
|   123 |   234 |   345 |   456 |   567 |   678 |   789 |
|   123 |   234 |   345 |   456 |   567 |   678 |   789 |
|   123 |   234 |   345 |   456 |   567 |   678 |   789 |
тут новые значения
+-------+-------+-------+-------+-------+-------+-------+
|  col1 |  col2 |  col3 |  col4 |  col5 |  col6 |  col7 |
+-------+-------+-------+-------+-------+-------+-------+

and the names of the columns at the bottom.
I'm looking for advice and ideas.

Answer 1

perldoc -f format ?

Answer 2

I think https://metacpan.org/pod/Text::ASCIITable is the right direction