use strict;
use warnings;
use Module::ScanDeps;

my $hash_ref = scan_deps(files => ['noname.pl'], recurse => 1,);

while (my ($key, $value) = each(%{$hash_ref})) {
    print "$key, $value<br />\n";
}