$ 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"
'

##</code><code>##

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

##</code><code>##

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