#!/usr/bin/env perl

use strict;
use warnings;

$\ = "\n";
my $i = 'A';
my(%hash) = map(($i++, $_), split(/:/, $ENV{'PATH'}, 0));
my $maxl = max_strl(\%hash) + 5;

my $format1 = "PathEle %3s%${maxl}s% 10u Kb used";
foreach (sort keys %hash) {
    my $use_of_disk = "du -ks $hash{$_}";
    printf "$format1\n", $_, $hash{$_}, (split /\s+/,`$use_of_disk`)[0];
}
exit 0;