use strict;
use warnings;
use Sys::Statistics::Linux;
my $lxs  = Sys::Statistics::Linux->new(DiskUsage => 1);
my $stat = $lxs->get->{DiskUsage};

print sprintf('%-40s ', $_), $stat->{$_}->{usageper}, "%\n"
   foreach sort keys %$stat;