Verzeichnisstruktur abbilden

[Sven]

Hi Cheatah !!!

Danke für den Tip.
Hat zwar kurz gedauert bis ich gemerkt habe, daß man das

use strict;

rauslassen muß, aber jetzt läuft‚s mit:

#!/usr/bin/perl -w
use CGI qw(:standard :html3);
print header, start_html('Files');
opendir(DIR, param('showdir')) die "Could not open directory.";
print "<H1>Files from ",param('showdir'),".</H1>";
while ($name = readdir(DIR))
{
     print "$name";
     print "<br>";
}
closedir(DIR);
print "</BODY></HTML>";

Vielen Dank.
Sven