chdir "/home/main/sub/newfiles" or die $!;
open(WRITE, ">$file") or die "Can't open $file: $!";