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