Select Code to Download

print tail_factorial(1, 8);

sub tail_factorial {
    my ($n, $total) = @_;
...
    @_ = ($n - 1, $total * $n);
    goto &tail_factorial;
}