階乗を求める

fact_recursive.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

chomp(my $i = <STDIN>);
say get_fact($i);

sub get_fact{
    my $i = shift;
    if ($i != 1){
        return get_fact($i - 1) * $i;
    } else {
        return 1;
    }
}