ldpl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/env perl

use warnings;
use strict;
use feature 'say';

die "Usage: $0 Module::Name" unless @ARGV;

eval "require $ARGV[0]" or die "require $ARGV[0]: $!";

say $_ . " => " . $INC{$_} for keys %INC;