sub P1::DESTROY { print 'd'; }
sub P2::DESTROY { print 'c'; }
{
   print('a');
   if (my $x = bless({}, 'P1')) {
      my $y = bless({}, 'P2');
      print('b');
   }
   print('e');
}
print("\n");