#!/usr/bin/perl
#
# Il numero di partenza viene fornito come costante.
#
$cont       = 6;
$fattoriale = 1;
do
  {
    $fattoriale *= $cont;
    $cont--;
  }
while ($cont);
print "Il fattoriale è $fattoriale.\n";