use HTML::Table;
my @headers = ("Custodial Code",
"Date",
"Requestor's Name",
"Requestor's Phone Number", "Contact Name", "Contact Phone Number",
"Building", "Room", "Decal #", "Descr", "Y2K",
"CPU", "LAB" , "Tech");
my $table = new HTML::Table(-border=>1);
$table->addRow(@headers);
my $rows=1;
print "";
foreach my $row (@$ary_ref){
if ($rows % 20 == 0){
$table->addRow(@headers);}
$table->addRow(@$row);
$rows++;}
for ( 1 .. $table->getTableRows() ) {
$table -> setRowStyle( $_,'font-face=arial; size= 11' );
$table -> setRowAlign( $_,"center");}
$table->print;