#!/usr/local/bin/perl

use CGI;
$query = new CGI;
$xloc = $query->param('x');
$yloc = $query->param('y');

$a="80x80+$xloc+$yloc";

@image = qx(/usr/local/bin/convert -crop $a -quality 40 ./seattlecoverage.jpg -);
print "Content-Type: image/gif\n\n";
print @image;