$fileName = "dir1/dir2/dir3/filename.txt"; 
open (LIST, ">$fileName");.....