use AtExit;

sub awful {
    my ($various,%shared,@vars);
    my ($recusive1,$recursive2);
    my $cleanup = AtExit->new(sub{
        undef $recursive1;
        undef $recursive2;
    });
    $recursive1 = sub {
        # Do stuff with $various,%shared,@vars and make further calls to
        # $recursive1->() and $recursive2->()
    }
    $recursive2 = sub {
        # Do stuff with $various,%shared,@vars and make further calls to
        # $recursive1->() and &$recursive2->() and call
	frobnicate($recursive1);
    }
    $recursive1->();
}