Enter CPAN ;)

use strict;
use warnings;

use Quota;
use DBIx::XHTML_Table;

my @dev    = qw(/var/mail /home);
my $data   = [map [Quota::query($_)], @dev];
my $header = [qw(
   block_curr block_soft block_hard block_timelimit
   inode_curr inode_soft inode_hard inode_timelimit
)];

my $table = DBIx::XHTML_Table->new($data,$header);
$table->modify(table=>{border=>1});
$table->modify(td=>{align=>'right'});

print $table->output;
[download]

By using add_cols(), you can list the device as well:

... rest of code untouched
$table->add_cols({name=>'Device',data=>[@dev],before=>0});

print $table->output;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)