--- perlindex-1.302/perlindex.PL~	2004-05-02 13:46:21 +0000
+++ perlindex-1.302/perlindex.PL	2004-05-21 20:53:09 +0000
@@ -161,6 +161,9 @@ $opt_cbreak  = 1;
 
 if (defined $opt_idir) {
     $IDIR = $opt_idir;          # avoid to many changes below.
+} elsif (! -w $IDIR) {
+    $IDIR = "$ENV{HOME}/.perlindex";
+    mkdir $IDIR;
 }
 
 if (defined $opt_dict) {