open DAT, ">>$filename" || die "foo";