Select Code to Download

use strict;
use warnings;
...
      print("post\n");
   }
}

pre
STORE undef   # local
...
STORE [a]     # assignment
post
STORE undef   # local unroll

use Sub::ScopeFinalizer qw( scope_finalizer );

...
   my $sentry = local_sassign $SIG{ALRM}, \&alarm_handler;
   ...
}