open(DATA,"$file") || die "cannot read $file: $!";