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

die "syntax: $0 filename.db [...]\n" unless @ARGV;

file: for my $file (@ARGV) {
	my %h;
	dbmopen(%h, $file, 0) || do {
		warn "$0: dbmopen($file): $!\n";
		next file;
	};
	print "$_ -> $h{$_}\n" for keys %h;
}