my $keyword = $ARGV[0] || die << "USAGE";

use: agenda keyword (databasefile separator pos.key)

  default database:  $db_file
  default separator: $separator
  default pos.key:   $pri

and so on
USAGE

# the line above marks the end

##</code><code>##

open DB, "<$db_file" or die "Can't open $db_file: $!\n";

# leave out the final \n
open DB, "<$db_file" or die "Can't open $db_file: $!";

##</code><code>##

### Close database
    close DB;

##</code><code>##

my $first_record = <DB>;
chomp $first_record;

# in one line
chomp(my $first_record = <DB>);

##</code><code>##

@{ $values{$fields[$primary]} } = @fields;

##</code><code>##

$item =~ /$keyword/io;

##</code><code>##

print "\n ** keyword: $item\n\n";

# and
print "    $names[$features] = $values{$item}[$features]\n";