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";
}

##</code><code>##

Set up gcc environment - 3.4.5 (mingw-vista special r3)
unicore/lib/gc_sc/InBuhid.pl, HASH(0x64b47ac)<br />
unicore/lib/gc_sc/InGeomet.pl, HASH(0x64b7c84)<br />
unicore/lib/gc_sc/Knda.pl, HASH(0x64c073c)<br />