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