#! /usr/bin/perl5
eval 'exec perl5 -S $0 "$@"'
    if 0;

push(@INC, "/usr/share/lib/perl5/sgi_lib");
use MDBM_File;
use Fcntl;

for (@ARGV) {
	tie(%db, MDBM_File, $_, O_RDONLY, 0) ||
	    die "Unable to open destination database file: $_\n";
	foreach $key (keys %db) {
		print "$key: ". $db{$key} . "\n";
	}
	untie(%db);
}
