>>449
$dir = $ENV{'PATH_INFO'};
$uri = $ENV{'REQUEST_URI'};
$base = $uri;
$base =~ s#/([^/]+?)$dir$#/#;
$cgi = $uri;
$cgi =~ s#$dir$##;
$dir =~ s#^/##;
chdir $dir;

print "Content-Type: text/html\n\n<H1>Index of $base$dir</H1><BR>\n<table>";
while(<*>) {
    if ( -d $_ ) {
        $ref = "$cgi/$dir$_/";
        $fname = "$_/";
        $size = '[DIR]';
    } else {
        $ref = "$base$dir$_";
        $fname = "$_";
        $size = (stat $_)[7];
    }
    print "<tr><td><a href='$ref'>$fname</a></td><td align='right'>$size</td></tr>\n";
}
print "</table>\n";