Perl Factorial with Ternary

fact.pl

#!/usr/bin/env perl

use 5.10.0;
use strict;
use warnings;

my $input = shift @ARGV || die "Give me a number\n";

sub factorial {
        my $n = shift;
        $n == 0 ? 1 : $n * factorial($n - 1);
}

say factorial($input);