#!/usr/local/bin/perl -w

use DB_File;

my $file = "test1.db";

tie (%user_db, DB_File, $file, O_RDONLY, 0644, $DB_HASH) || die ("Cannot open: $!");

keys(%user_db);