my $o1_ident;
{
    my $o1 = object->new;
    $o1_ident = 0 + $o1;
}
my $o2 = object->new;
my $o2_ident = 0 + $o2;

ok( $o1_ident != $o2_ident );