#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

my $installed = "";

find ( sub { push (my @files, my $File::Find::name) if /\.pm$/; }, @INC);
foreach my $i (@files){
        my $absolut = $i;
        foreach my $a (@INC){
               
 if(-e("$a") && $a ne "."){
               
         $i =~ s/$a//gi;
               
 }
        }
        $i =~ s/^\///g;
        $i =~ s/\//::/g;

        $installed .= qq~Modul: $i, absoluter Pfad: $absolut<br>~;
}

print "Content-type: text/html\n\n";
print $installed;

exit;