sub new {
    # typical bless invocation stuff here.
    $self->{_obj} = new Special::Object;
    return $self;
}

sub DESTROY {
    my $self = shift;
    $self->{_obj}->do_stuff(); # boom! Special::Object already GC'ed
}