perl -le "sub Foo::DESTROY {print 'BLAM'}; print 'A'; do { 1; my $x = bless {}, 'Foo' }; print 'B' ";
A
BLAM
B