use Text::Reform;

my @name  = (qw(foo foo2 foo3)) x 20;
my @last  = (qw(bar bar2 bar3)) x 20;
my @count = (qw( 3   4    5  )) x 20;

print form
"--------------------------------------------------",
"NAME        LAST                 COUNT",
"--------------------------------------------------",
"[[[[[[[[[   [[[[[[[[[[[[[[[[[[   |||||",
 \@name,     \@last,              \@count;


print form
{ header =>
    "--------------------------------------------------\n" .
    "NAME        LAST                 COUNT\n" .
    "--------------------------------------------------",
  footer => sub {
    my ($pagenum, $lastpage) = @_;
    return "\n\n\nEND OF REPORT" if $lastpage;
    form "\n\n\n>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>",
             ".../".($_[0]+1);
  },
  pagelen=>20,
  pagefeed=>"\n\n".("_"x60)."\n\n",
},
"[[[[[[[[[   [[[[[[[[[[[[[[[[[[   |||||",
\@name,  \@last,    \@count;