use strict;
use warnings;

use ReleaseAction qw( on_release );

$| = 1;

sub something {
   my $closer = on_release {
      print "on_release enter\n";
      die("test");
      print "on_release exit\n";
   };
}

print "pre\n";
something();
print "post\n";