#!/usr/bin/perl

open (FOO, "ls |");
while (<FOO>) {
	chomp;
	push (@files, $_);
}

foreach $file (@files) {
	if ($oldfile) {
		system "diffview $oldfile $file\n";
	}
	$oldfile = $file;
}