while (my $bytesread = read(READFILE, my $buffer, 1024)) {
   syswrite(OUTFILE, my $buffer, 1024);
}

##</code><code>##

if ($file ne "" & $file =~ /image/){

##</code><code>##

if(open(OUTFILE, "> $TEMP_DIR/$html_lead$file$file_ext")  ...