#!/usr/bin/perl -w 
use strict;

BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File) }
use AnyDBM_File;
use Fcntl qw(:flock O_RDONLY);

my $DB = $ARGV[0];

open(LOCK, ">$DB.lock") or die "cannot open $DB.lock: $!";
flock(LOCK, LOCK_SH) or die "cannot lock $DB.lock: $!";

tie my %db, 'AnyDBM_File', $DB, O_RDONLY, 0600
    or die "cannot tie to $DB: $!";

for my $key (keys %db) {
    print "$key:$db{$key}\n";
}