# ex_17-1a

# Learning Perl on Win32 Systems, Exercise 17.1a



# program 1:

dbmopen(%WORDS,"words",0644);

while (<>) {

  foreach $word (split(/\W+/)) {

    $WORDS{$word}++;

  }

}

dbmclose(%WORDS);