Perl can do something that closely resembles an optimized tail call, but it only does so if you tell it to.

sub tail_fact {
    my ($num, $k) = @_;
    return $k->(1) unless ($num);
    @_ = ($num - 1, sub { return $num * $k->(shift); });
    goto &tail_fact;
}
[download]