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

my $hash_ref = scan_deps(
  files   => [ 'c:\lib-authtest.cgi' ],
  recurse => 1,
);

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