#!/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 = Dumper(thaw($val));	
	}; 	
	if ($@) {
		$data = $val;
	}	
	print $key, " => ",$data,"\n";
}