#!/usr/bin/env perl
#
use strict;
use warnings;
use Config;
use Number::Format qw(:subs);
use Filesys::DfPortable;

my $mlen = 0;
my %hop;
my @lodirs = qw(installarchlib installprivlib);
for (@lodirs) {
    my $p = $Config{ $_ };
    $mlen = length( $p ) > $mlen ? length( $p ) : $mlen;
    $hop{ $_ } = $p;
}

$mlen += 2;
for (sort keys( %hop )) {
    printf( "%-${mlen}s%s\n", $hop{ $_ }, $_ );
    my $mea = dfportable( $hop{ $_ }, 1024 );
    printf "Total 1k blocks used in %s:  %s\n",
           $_ , format_number( $mea->{bused} );
}