...
   my $filename = ( $full_image ) ?  "$Photo_Dir/$filename" : 
                                     "$Thumb_dir/th_$filename";
   if(open(OUTFILE, ">$filename")) {
       while (my $bytesread = read($file, my $buffer, 1024)) {
           print OUTFILE $buffer;
       }
       close (OUTFILE);
   ...