#!/usr/bin/perl
BEGIN {
    $| = 1;
    use CGI::Carp qw/fatalsToBrowser/;
}
use strict;
use warnings;
use CGI qw/:all/;
my $path = 'http://www.blackwindow.de/phpkit_1603/phpkit/uploads/';
print header();
print start_html(-title=>'Directory Index');
opendir DIR,$path or die "Konnte Directory nicht auslesen: $!";
for (sort grep !/^\.\.?$/,readdir DIR) {
    print a({-href=>$path . $_,-target=>'_blank'},$_),br;
}
closedir DIR;
print end_html;

exit;