sub show {
	my $self = shift ;
	my $proto = ref $self ;
	my $val = eval "\$${proto}::data";
	print $val;
	print Dumper $val
}