$ perl -e '
sub fact { 
     my $c = shift; 
     return 1 if $c == 1; 
     $c * fact($c-1);
} 
print fact (shift);' 10
3628800