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