foreach my $eachImage (@Images)
	{
		my ($xrez,$yrez);

		$xrez=0;
		next if($eachImage !~ /\.(PNG|JPG|JPEG|TIFF|TIF|EPS|PSD)$/i);

		$info = ImageInfo("$Directory_Path\\$eachImage");
		foreach (keys %$info)
		{
		my $val = $$info{$_};
		my $imgres=$_."\t".$val."\n";
			if ($imgres=~m/XResolution\t([0-9]+)/gi)
			{
			$xrez=$1;
			}
		}

		$xrez=sprintf("%.1f",$xrez);

		$sno++;

		if ($xrez < 300 or $xrez > 1200)
		{
			$result="Fail";
		}
		else
		{
			$result="Pass";
		}

		push @Report, $sno.'---'.$eachImage.'---'.$xrez.'---'.$result;
		undef $image;
	}