# Tail recursive
    sub factorial {
        my $n = shift;
        return 0 unless $n > 0;
        fact( $n, 1 );
        
        sub fact {
            my($n, $a) = @_;
            return $a unless $n > 1;
            fact( $n-1, $n*$a );
        }
    }