#!/usr/bin/perl
#
# Il numero di partenza viene fornito come costante.
#
$numero = 8;
$cont = $numero -1;
# Il ciclo seguente è senza fine.
while (1)
  {
    $numero *= $cont;
    $cont--;
    if (!$cont)
      {
        last;
      }
  }
print "Il fattoriale è $numero.\n";