# Save Picture File if updated or new
$file_name = param(upfile);
if ($file_name ne "")
{
  open(OUTF,">test.jpg") or &dienice("Couldn't open pic for
    writing.  Please notify webmaster Falazar.");
    while(read($file_name,$data,1024))
    { 
      binmode OUTF;  # Added this line
      print OUTF $data; 
    }
  close(OUTF);
}