#! /usr/bin/perl

# integer division: compute $n div $d (so 4 div 2 is 2, 5 div 2 is also 2)

# parameters are $n then $d
sub quotient {
    my $n = shift; my $d = shift;
    my $r = $n; my $q = 0;
    while ($r >= $d) { 
	$r = $r - $d;
	$q = $q + 1;
    }
    return $q;
}

# main program
print "4 div 2 is ", quotient(4,2), ", 5 div 2 is ", quotient(5,2), "\n";