my $point = new Point(3, 4); ... my $start_point = $point; $point->X++ while $image->color_at($point) == RED; # or even $point->X = point->X + 1 my $end_point = $point; $image->line( $start_point, $end_point, BLACK );