+++ /dev/null
-#!/usr/bin/perl -w
-
-# dump on stdout the data contained in a db file.
-# Print one line for each record in this format
-# <key> = <value>
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-#
-
-use strict qw(O_RDONLY);
-use DB_File;
-
-my $dbfile = shift || die "which db file ?";
-my %map;
-tie(%map, 'DB_File', $dbfile, O_RDONLY, 0664);
-while(($key,$value) = each %map) {
- print "$key = $value\n";
-}
-