#! /usr/local/bin/perl opendir(DIR, "/data/web/70176/www/articles/2000") or die "$!"; @dir = readdir(DIR); closedir DIR; print "Content-type: text/html\n\n"; foreach $file (@dir) { open(FILE, "/data/web/70176/www/articles/2000/$file") or die "$!"; @file = ; close FILE; $joinfile = join(/ /, @file); $joinfile =~ s/1\.txt/\.\.\/1\.txt/gi; $joinfile =~ s/2\.txt/\.\.\/2\.txt/gi; open(FILE, ">/data/web/70176/www/articles/2000/$file") or die "$!"; print FILE "$joinfile"; close FILE; } print "FILES FIXED";