#!/usr/bin/perl
print "<TABLE WIDTH=750><TR><TD colspan=3><FONT FACE=Arial COLOR=RED>Vorhandene Perl-Module:</FONT></TD></TR>\n";
use File::Find;find(\&wanted,@INC);sub wanted {$count = 0;if ($File::Find::name =~ /\.pm$/) {open(MODFILE,$File::Find::name) || return;while(<MODFILE>) {if (/^ *package +(\S+);/) {push (@foundmods, $1);last;}}}}
$message="$message\n\nPerl-Module:\n";
my $count=0;while (@foundmods) {
 $count++;my $mod=shift(@foundmods);
 if ($count == 1) {print "<TR>";}
 if ($count <= 3) {print "<td bgcolor=\"#D1DAE0\"><FONT FACE=Arial SIZE=2>$mod</FONT></TD>";}
 if ($count == 3) {print "</TR>\n";$count=0;}
}#///
print "</TABLE>\n";