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