No subject

implementation in C.  How would it be done in Perl?

#include <stdio.h>

int euc_alg(int m, int n);

int main()
{
	int int1, int2;
	
	printf("Gimme two ints: ");
	scanf("%d %d", &int1, &int2);
	
	printf("%d\n", euc_alg(int1, int2));

	return 0;
}

int euc_alg(int m, int n)
{
	int r;

	while (m % n != 0) {
		r = m % n;
		m = n;
		n = r;
	}
	return n;
}

-- 
Steve Zimmerman