open (FILEDB, "<", $DATABASEFILE)  or  die "<b>Sorry, can't open database file $DATABASEFILE:<br/>$!</b>";