open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";

##</code><code>##

freebie:~ 601> perl -MO=Deparse,-p
open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";
open(FH, (">$WriteDirectory/$file" || die("Can't open $file: $!")));