Select Code to Download

use strict;
use warnings;
...
my $rule = $tb->rule(qw/- +/);
print $rule, $tb->title, $rule, $tb->body, $rule;
__END__

$ perl -w 718972.pl
+---------+---------+--------+---------+
...
| ./case8 | x       |        | x       |
| ./case9 | x       |        | x       |
+---------+---------+--------+---------+