package My;
my $self;
sub execute {
#...
$self=$call;
$call->();
undef$self;
}