open (READ, "/home/main/sub/oldfiles/$file") or die "could not open /home/main/sub/oldfiles/$file $!";


##</code><code>##

open (READ, "../sub/oldfiles/$file") or die "could not open ../sub/oldfiles/$file $!";


##</code><code>##

open (READ, ">/home/main/sub/newfiles/$file") or die "could not open /home/main/sub/newfiles/$file $!";

##</code><code>##

chdir "/home/main/sub/newfiles";
open (WRITE,">$file") or die "could not open $file $!";
# write stuff
chdir "/home/main/cgi-bin";