Select Code to Download

use strict;
use warnings;
...
print '-' x $length, "\n";
print '| ', sprintf($format, @$_), ' |', "\n",
      '-' x $length, "\n" for @arr;

---------------------------------------
|      | COL1  | COL2 | COL3 | COL4   |
...
---------------------------------------
| COL3 | table | of   | data |        |
---------------------------------------