#!/usr/bin/perl
##
## dividi.pl <x> <y>
## Divide esclusivamente valori positivi.
##
#
# &dividi (<x>, <y>)
#
sub dividi
{
    local ($x) = $_[0];
    local ($y) = $_[1];
    #
    local ($z) = 0;
    local ($i) = $x;
    #
    while ($i >= $y)
      {
        $i = $i - $y;
        $z++;
      }
    #
    return $z;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
$y = $ARGV[1];
#
$z = &dividi ($x, $y);
#
print "Divisione intera - $x:$y = $z\n";
#
