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