#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
my $cgi = new CGI;

print $cgi->header();
print $cgi->start_html();

foreach my $i (@INC) {
    opendir (DIR, "$i");
    print "<p><b>$i</b>";
    while (my $datei = readdir(DIR)) { print "<br>$datei"; }
    print "</p><hr>";
}

print $cgi->end_html();