use Devel::Pointer;

my %hash;
$hash{1} = 2;

my $code = &create(\%hash);
print "CODE : ".$code."\n";

my $ref = &extract($code);
print "REF : ".$ref."\n";

sub create {
	my $self = shift;
	return(address_of($self));
}
sub extract {
	my $self = shift;
	return(deref($self));
}