#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI qw(:standard);
use CGI::Carp (fatalsToBrowser);
$query = new CGI;