or download this
my ($x1,$y1,$x2,$y2) = $self->GetHorizontalCoord($xcoord1,$ycoord1,$xc
+oord2,$ycoord2,$threshold);
print "The horizontal coordinates are $x1,$y1,$x2,$y2 \n";
...
my $region = $self->WaitForTextInROI($element1,$x1,$y1,$x2,$y2
+,$duration);
return ($region);
}