#!/usr/bin/perl

use Data::Dumper;
use Storable qw(thaw);

dbmopen %x,$ARGV[0],0644;

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";
}