use Module::ScanDeps;

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

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