package Guard;
sub DESTROY { $_[0]->() };
sub guard (&) {
    bless $_[0] => __PACKAGE__
};