$$$fh = ReleaseAction->new(
  sub {unlink $file or die "Cannot unlink $file: $!"}
);