#! /usr/bin/perl
use strict;
use BerkeleyDB;
use vars qw( %h $k $v ) ;

my $filename = $ARGV[0];
tie %h, "BerkeleyDB::Hash",
	Filename => $filename,
	Flags    => DB_CREATE
	or die "Cannot open file $filename: $! $BerkeleyDB::Error\n" ;

while (($k, $v) = each %h)
{
	$k =~ s/\x00//g;
	if( $k ne "PAS-DB-VERSION" ){
		$v =~ s/\x00//gm;
		$v =~ s/^[.]//gm;
		print "$v\n\n";
	}
}

untie %h ;