#!/usr/bin/perl
#
# Il numero di partenza viene fornito come costante.
#
$input = 11;
$numero = $input;
for ($cont = 1; $cont < $input; $cont++)
  {
    $numero *= $cont;
  }
print "Il fattoriale è $numero.\n";