Worked for me, too... I did:
$ perl -e '
BEGIN {
open my $f, "|sort>/tmp/uses.txt";
unshift @INC, sub {
push @_, caller;
print $f "module $_[2] uses $_[1]\n"
}
}
do "bin/ponto"
'
where
bin/ponto is the name of some script of mine, and I got the following in
/tmp/uses.txt:
module base uses vars.pm
module Carp uses Exporter.pm
module Compress::Zlib uses Compress/Raw/Zlib.pm
module Compress::Zlib uses IO/Compress/Base/Common.pm
...
module main uses bin/ponto
module main uses Date/Manip.pm
module main uses locale.pm
module main uses open.pm
module main uses strict.pm
module main uses utf8.pm
module main uses warnings.pm
module main uses WWW/Mechanize.pm
module main uses YAML/Syck.pm
...
