#!/usr/bin/perl

opendir(MYDIR,".");
@dir = readdir(MYDIR);
$n = $#dir;
print "number $n \n";
$i = 0;
while ( $i <= $n ) {
	if ($dir[$i] eq ".") { $i++; next; }
	if ($dir[$i] eq "..") { $i++; next; }
	$j = $i+1;
	while ( $j <= $n ) {
		if (system "cmp \"$dir[$i]\" \"$dir[$j]\" > /dev/null 2>&1" ) {
		} else {
			print "cmp $dir[$i] $dir[$j] ==\n";
		}
		$j++;
	}
	$i++;	
}