find(\&wanted,@INC);foreach $mod (@foundmods) { 
  chomp $mod; 
  # Get module version 
  my $version = module_version($mod); 
        
  print "$mod $version\n"; 
}################################################################### 
 
# subroutine wanted                                               # 
###################################################################sub wanted { use File::Find; 
  
 if ($File::Find::name =~ /\.pm$/) { 
  open(MODFILE,$File::Find::name) || return; 
  while(<MODFILE>) { 
   if (/^ *package +(\S+);/) { 
    push (@foundmods, $1); 
    last; 
   } 
  } 
 } 
  
 return @foundmods; 
} 
 
################################################################## 
# subroutine module_version                                      # 
##################################################################  
 
sub module_version {  
 
 my $module = shift;   
 my $output_version; 
  
 eval("require $module");   
 
 if ($@) { 
  $output_version = "(Error loading)"; 
 } 
 else { 
  # Grap the variable from the symbol table.    
  # To get something from the sumbol table, you can use a string...    
  my $version = ${"$module\::VERSION"};      
  $output_version = "($version)" if (defined $version);    
 } 
  
 return $output_version; 
} 

 Useless use of a constant in void context at Pod2/Html.pm line 858.  
locate: not found  
locate: not found  
Use of uninitialized value in hash element at perldiver.conf line 225.  
Use of uninitialized value in hash element at perldiver.conf line 225.  
Use of uninitialized value in join or string at (eval 17) line 16.  
perldiver.cgi: no title for /usr/lib/perl5/site_perl/5.6.1/URI/file/Base.pm at Pod2/Html.pm line 225.  
perldiver.cgi: error changing to directory /cgi-bin/perldiver: No such file or directory  
Useless use of a constant in void context at Pod2/Html.pm line 858.  
locate: not found  
locate: not found  
Use of uninitialized value in hash element at perldiver.conf line 225.  
Use of uninitialized value in hash element at perldiver.conf line 225.  
Can't stat d:/apache/home/perldiver/www: No such file or directory  
Use of uninitialized value in concatenation (.) or string at perldiver.cgi line 218, line 7933.  
Use of uninitialized value in join or string at (eval 13) line 16, line 7933.  
Use of uninitialized value in concatenation (.) or string at perldiver.cgi line 218, line 7933.  
Use of uninitialized value in join or string at (eval 13) line 16, line 7933.  
Useless use of a constant in void context at Pod2/Html.pm line 858.  
locate: not found  
locate: not found  
Use of uninitialized value in hash element at perldiver.conf line 225.  
Use of uninitialized value in hash element at perldiver.conf line 225.  
perldiver.cgi: error changing to directory /cgi-bin/perldiver: No such file or directory

   
 
find(\&wanted,@INC);  
 
sub wanted {  
 
 use File::Find; 
  
 if ($File::Find::name =~ /\.pm$/) { 
  open(MODFILE,$File::Find::name) || return; 
  while(<MODFILE>) { 
   if (/^ *package +(\S+);/) { 
    push (@foundmods, $1); 
    last; 
   } 
  } 
 } 
  
 return @foundmods; 
}

 foreach my $module ( @found ){ 
 
    my $mod = Module::Info->new_from_module( $module ); 
 
    print "Name: $module Version:  " . $mod->version; 
 
}