use DynaLoader;                # disable XS loading
sub DynaLoader::bootstrap {1}  # thanks, demerphq

use Scalar::Util qw(refaddr);
my $foo = {};
print $foo, $/;
refaddr $foo;
print $foo, $/;

__END__
HASH(0x804b3f8)
HASH=HASH(0x804b3f8)