Perl Factorial with GOTO TCO Hack

factorial.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, $total) = @_;

        $total ||= 1;

        return $total if $n == 0;
        @_ = ($n - 1, $n * $total);
        goto &factorial;
        
}

say factorial($input);