package My::Guard;
use strict;
sub new {
    bless $_[1] => $_[0];
};
sub DESTROY {
    $_[0]->()
};