#!/usr/bin/perl
##
## primo.pl <x>
##
#
# &primo (<x>)
#
sub primo
{
    local ($x) = $_[0];
    #
    local ($primo) = 1;
    local ($i) = 2;
    local ($j);
    #
    while (($i < $x) && $primo)
      {
        $j = int ($x / $i);
        $j = $x - ($j * $i);
        #
        if ($j == 0)
          {
            $primo = 0;
          }
        else
          {
            $i++;
          }
      }
    #
    return $primo;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
#
if (&primo ($x))
  {
    print "$x è un numero primo\n";
  }
else
  {
    print "$x non è un numero primo\n";
  }
#
