Select Code to Download

package H;
sub DESTROY { print "DESTROY\n"; }
...

    print "why now?\n";
}                        # <- The object is only destroyed here.

SCALAR(0x1829aac)
REF(0x1829abc)
SCALAR(0x1829aac)
why now?
DESTROY