...  
read(JPEG, $buf2, 4);  
open(JPEG, "</usr/local/httpd/htdocs/userpics/$baba");  
unless ($buf2 eq "\xFF\xD8\xFF\xE0") {  
   unlink("/usr/local/httpd/htdocs/userpics/$baba");  
  
}  
close(JPEG);  
...