my $rcu;
$rcu = sub {
    ...
    $rcu->(...);
};