open(OUTF, '>', "$directory$filename") || Error;