open(DATABASE, "mybase.txt") || die "open mybase.txt - $!\n";