AnyEvent::Util::guard を使ってみる。 use strict; use warnings; use AnyEvent::Util; sub gen { my $n = shift; my $guard = AnyEvent::Util::guard { print "terminated $n.\n"; }; print "created $n.\n"; $guard; } print "start\n"; { my $guard_0 = …