#!/usr/bin/perl
##
## moltiplica.pl <x> <y>
##
#
# &moltiplica (<x>, <y>)
#
sub moltiplica
{
    local ($x) = $_[0];
    local ($y) = $_[1];
    #
    local ($z) = 0;
    local ($i);
    #
    for ($i = 1; $i <= $y; $i++)
      {
        $z = $z + $x;
      }
    #
    return $z;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
$y = $ARGV[1];
#
$z = &moltiplica ($x, $y);
#
print "$x * $y = $z\n";
#
