#!/usr/bin/perl -w
use strict;

use Config;
use File::Spec::Functions qw(catfile file_name_is_absolute);

my ($binary) = file_name_is_absolute($^X)
	? $^X
	: (
		grep -x,
		map catfile($_,$^X),
		split /\Q$Config::Config{path_sep}/, $ENV{PATH}
	);

my %interesting =
	map +(
		$_ => do {
			(my $rwa = $_) =~ s/^install|exp$//;
			$rwa . (/^install/ ? 3 : /^exp$/ ? 2 : 1);
		}
	),
	grep {
		/^(?!installusr|ta|mv|mu|d_)\w*
          (?:bin(?!compat)|arch(?!name|obj)|priv|
	      (?:vendor|site)(?!lib_|prefix))
          [a-z]*
         /x
	}
	keys %Config::Config;

print(
	"Binary is at: $binary\n\n",
	map {
		my $lf = /^install/ ? "\n" : '';
		sprintf("%-20s        %s\n", $_, $Config::Config{$_}) . $lf;
	}
	sort { $interesting{$a} cmp $interesting{$b} }
	keys %interesting
);