#!/usr/bin/perl

use strict;
use warnings;

my ( $c, $f ) = ( 10, 1 );

$f *= $c--  while  $c > 0 ;

print $f;

__END__

karl@host ~
$ ./factorial.pl
3628800