open(DAT, $fileName) || die "Could not open $fileName - $!\n";