use strict; use CGI::Carp qw(fatalsToBrowser); my $Verzeichnis = "D:/CM/xampp"; opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!"; my @Dateien = readdir(DIR); closedir(DIR); print "Content-type: text/html\n\n"; print '', "\n"; print "Index\n"; print ""; print $0; print "
"; print ""; print " "; print " "; print " "; print " "; foreach(@Dateien) { print ""; print " "; print " "; if(-d $_) { print ""; } else { print ""; } print " "; } print "
DateinameTyp
$_\"PDF\" 
"; print "
"; print "\n";