#!/usr/bin/env perl
# Last modified: 2026-03-11T20:39:00-04:00

use strict;
use warnings;
use Config qw( config_re );
use Filesys::DiskUsage qw( du );
# use Data::Dumper;

my @r = config_re(q/\S+(lib|arch)exp/);
my %eos;

my @inst = map { ( split "=", $_, 2 )[0] } @r;
my @dirslist = @Config::Config{@inst};
my $sl = 0;
for ( @dirslist ) {
    $sl = length $_ > $sl ? length $_ : $sl;
}
$sl += 2;  # horizontal spacing

for my $tag (@inst) {
    my $f = $Config::Config{$tag};
    $eos{ $tag } = [$f,
	    du({ 'human-readable' => 1, 'sector-size' => 1024 } , $f )];
}

# "vendorarchexp" is longest tag, 13 chars.
do {
    no warnings 'uninitialized';
    $eos{$_}[1] = ($eos{$_}[1] eq undef ? 0 : $eos{$_}[1]); 
    printf qq^%-${sl}s  %-13s    %s\n^ =>
        $eos{$_}[0] , $_ , $eos{$_}[1]
   } for sort keys %eos;
#eof