@all= glob("*.jpg");
foreach (@all){
	print $_;
	$i++;
	rename $_, "password1_$i.jpg";
}

