# last mod: Wed Aug 20 2003 23:08 UTC
 # by [Intrepid], with quality tweaking by [broquaint] ;-)
sub max_strl {
     UNIVERSAL::isa( (my $h = shift) , 'HASH')
	   or die "Must pass a hashref!\n";
     my $ml = 0; length > $ml and $ml = length
           for ( @_ ? keys %$h : values %$h );
     return $ml;
}

##</code><code>##

#!/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;