$iClosure = shift;

##</code><code>##

our $iGlobal;
our $closure_sub = Cfactorial();
timethese (1000000,
{
'Recursion' => 'Rfactorial(30)',
'Global' => 'Gfactorial(30)',
'Lexical' => 'Lfactorial(30)',
'Closure' => '&{$closure_sub}(30)',
}
);