open (FILEDB, $DATABASEFILE) || die "<b>Sorry, can't open database file. $?</b>\n";