Select Code to Download

undef $object;

my $object;

...
};

print "Done";

sub make_frobnitz {
    my $frobnitz;
...
    };
    return $frobnitz # $frobnitz might stay alive forever, keeping $ob
+j alive
};

sub DESTROY {
    my $self = shift;
...
        };
    };
}