open(OLD,"<$dir/$file") or die "can't open $dir/$file: $!";