Select Code to Download

#!/usr/bin/perl
use strict;
...
1;
my $hm = $Hmmm->new();
my $copy = $hm; # hard..

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