Select Code to Download

#!/usr/bin/perl -w

...
    }
}
print "The guess was correct!";

sub fact_rec{ 
    my ($num) = @_;
...
for (1..10){
    printf"%d!\t%10d\t%10d\n", $_, fact_rec($_), fact_it($_);
}