use ExtUtils::MakeMaker;

my $mm = WriteMakefile(
    NAME          => 'Big::Fat::Dummy',
);

foreach my $var (qw(bin vendorbin sitebin script
                    man1dir man3dir
                    privlib vendorlib sitelib vendorarch archlib sitearch
                   ))
{
    my $instvar = uc "install$var";
    printf "%18s == %s\n", $instvar, $mm->{$instvar};
}