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;