# assuming %existing_files is  a hash of existing 
# filenames and descriptions
# and we recieve the new list of files on stdin

while (<STDIN>) {
	chomp;
	if ($existing_files{$_}) {
		delete $existing_files{$_};
	}
	else {
		$existing_files{$}="Newly Added file $_";
	}
}
# at this point %existing_files contains the files that 
# should be deleted, and the newly added ones, 
# with the description used to differentiate them
 
foreach (sort keys %existing_files} {
	if ($existing{$_} =~ /^Newly/ ) {
		print "Added $_;";
	}
	else {
		print "Delete $_";
	}
}