sub get_pixel($$) 
{
      my ( $x, $y) = @_; 
      substr ( $image, $y * $height + $x, 1);
}