Select Code to Download

#! /usr/bin/perl
use warnings;
...
    $t->add(("") x (3 == @cols), @cols);
}
print $t;