opendir(DIR,$img_dir);
my @files = readdir(DIR);
closedir(DIR);
foreach(@files){
	
if($_ eq $img_name){exit;}else{	
print $_,"\n";}
  
}