10	require "settings.pl"; 				# where is this?
12	umask(000);					# this is asking for trouble
28	my $image = param('uniquecode');		# poor security, good as useless
37-48	my ($tempError,$error,$name);			# you're using a sub just to set a global
162	my ($paths,$newnames,$capts,$associate) = @_;	# passing in a flattened list and expanding it is silly
163	my @filehandles = split(/\|/,$paths);		# use list ref instead and save loads of code
171	binmode $filenames[$i];				# operates on filehandle not scalar