Select Code to Download

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

use: agenda keyword (databasefile separator pos.key)
...
USAGE

# the line above marks the end

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: $!";

### Close database
    close DB;

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

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

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

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