--- a/.htaccess	Tue Oct 19 23:09:38 2010 +0200
+++ b/.htaccess	Wed Oct 20 07:21:56 2010 +0200
@@ -1,3 +1,4 @@
+Options -Indexes
 <Files upload.pl>
 	AuthType Basic
 	AuthName upload

--- a/upload.pl	Tue Oct 19 23:09:38 2010 +0200
+++ b/upload.pl	Wed Oct 20 07:21:56 2010 +0200
@@ -1,5 +1,6 @@
 #! /usr/bin/perl -T
 # Example .htaccess
+# | Options -Indexes
 # | <Files upload.pl>
 # | AuthType Basic
 # | AuthName upload
@@ -25,7 +26,7 @@
 use File::Basename;
 use Digest::SHA1 qw(sha1_hex);
 
-my $DIR      = "../d";
+my $DIR      = "d";
 my $DIR_URI = "/$DIR";
 
 -d $DIR