Lexicals in if() scope gotcha!

This came up on perl5-porters this week: The question is, when does the object get destroyed given this code? if (my $object = Foo->new) {} print "after if\n"; package Foo; sub new { my $self = bless {},shift; print "CREATED $self\n"; $self } sub DESTROY { print "DESTROYED $_[0]\n" }