#!/usr/bin/perl
use strict;
use warnings;

use File::Find;

my @files;
sub wanted {
  my $file = $_ =~/.pm$/ ? $File::Find::name : undef;
  push @files, $file if $file;
}

my @directories = ('/home/me/Documents/');
find(\&wanted,  @directories);

my $module_directory = $directories[0].'www/files/lib/';

my $modules;
for my $file (@files) {
  open my $fh, '<', $file or die "$file: $!";
  my $file_convert = $file;
     $file_convert =~ s/$module_directory(.+)\.pm/$1/;
     $file_convert =~ s/\//::/g;

  while (<$fh>) {
    chomp;
    if ($_ =~ s/^use ((:|\w)+)(.+)/$1/) {
      push @{$modules->{$file_convert}{'uses'}}, $1;    # what modules the module uses
      push @{$modules->{$1}{'used by'}}, $file_convert; # what modules use this module
    }
  }
}

my $in = shift;
use Data::Dumper;
print Dumper($modules->{$in});