#!/usr/bin/perl -w
##
##  txt2dbm -- convert txt map to dbm format
##

use NDBM_File;
use Fcntl;

($dbmmap) = @ARGV;

tie (%DB, 'NDBM_File', $dbmmap,O_RDWR, 0644) or die "Couldn't create $dbmmap!\n";

while ( ($key, $val) = each %DB) {
  print "$key\t$val\n";
}

untie %DB;