#!/usr/bin/perl
use strict;
use Data::Dumper;
use Storable qw(thaw);
use Getopt::Std;
use vars qw($opt_d);
getopts("d:");
my %x;
dbmopen %x,$ARGV[0],0644;

if ($opt_d) {
	delete $x{$opt_d};
}	

while (my ($key,$val) = each %x) {
	my $data;
	eval {
		$data = Data::Dumper->Dump([thaw($val)],[$key]);	
		$data =~ s/^\$//;
		$data =~ s/ = / => /s;
	}; 	
	if ($@) {
		$data = "$key => $val";
	}	
	print $data,"\n";
}	

dbmclose %x;