#!/usr/bin/perl
use strict;
use Scalar::Util qw(refaddr);
package Hmmm;
sub new {bless {}, shift;}
1;
my $hm = $Hmmm->new();
my $copy = $hm; # hard..

##</code><code>##

my $addr = refaddr($hm);
undef $hm;