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