#! perl -w

use strict;
use diagnostics;

use Carp;

sub iterFac {
    my $max = shift;
    my $val = shift || 1;
    my $cnt = shift || 1;

    Carp::cluck("we are currently here:");

    return $val if $cnt > $max;
    #iterFac($max, $val*$cnt, ++$cnt);
    @_ = ($max, $val*$cnt, ++$cnt);
    goto &iterFac;
}

my $x = iterFac(5);
print "Factorial 5 = $x\n";