#! /usr/bin/perl

use DB_File;

my(%db);

tie(%db, 'DB_File', $ARGV[0]);

foreach $foo (keys %db) {
	print "$foo -> $db{$foo}\n";
}

