Select Code to Download

package A;

...
  my $a = A->new;
  print "scope left\n";
}

./perl -Dt /tmp/test
(/tmp/test:3)    null
...
destroy
(/tmp/test:3)    leavesub
(/tmp/test:9)    leave