I see

if(open(OUTFILE,">", $config{'image_upload_dir'}.$fntwo)) {
[download]

is different from

if((-s "$config{'image_upload_dir'}/$fntwo") > ($config{'max_file_size
+'} * 1024)) {
                push(@was_too_big, $filename);
                unlink("$config{'image_upload_dir'}/$fntwo");
[download]

I would perltidy