Select Code to Download

use Text::Table;
my $t = Text::Table->new(qw(CASENAME SORTED CLEANED PROCEED));
...
    $t->add(@res);
}
print $t;