use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;
use Sys::Statistics::Linux::DiskUsage;

my $lxs   = new Sys::Statistics::Linux::DiskUsage;
my $usage = $lxs->get;
my $tmpl  = HTML::Template->new(filename => './diskusage.tmpl');

my @data;

foreach my $disk (sort keys %{$usage}) {
   $usage->{$disk}->{name} = $disk;
   push @data, $usage->{$disk};
}

$tmpl->param(DISKUSAGE => \@data);
print "Content-Type: text/html\n\n", $tmpl->output;