#!/usr/bin/perl

if($#ARGV == -1) {
	print "Please include the number on the command line.\n";
} else {
	$n = $ARGV[0];
	print "Here are the pairs of divisors of your number:\n";
	for($i = 2; $i < sqrt($n); $i++) {
		if($n % $i == 0) {
			$j = $n / $i;
			print "($i,$j)\n";
		}
	}
}
