open DBFILE , "$dbFileName" or die $!;
my @dbFile = <DBFILE>;
close DBFILE;

if (grep $cdLabel, @dbFile) {
  print "This CD ($cdLabel) is already in the database\n";
  exit; 
}

# `cp -f $dbFileName $dbFileName.BAK`;

open DBFILEBK, ">$dbFileName.BAK" or die $!;
for (@dbFile) { print DBFILEBK; }
close DBFILEBK;