while (defined($_ = readdir(DIR))) {
	next if /^\.\.?$/;
	unless (delete $files{$_}) {
		print "New: $_\n";
	}
}

##</code><code>##

for (keys %files) {
	print "Gone: $_\n";
}