#!/usr/athena/bin/perl

require 'pinkdex_test.pl';

$query=$ENV{'QUERY_STRING'};

print("Content-Type: text/html\n\n");
&do_pinkdex_verbose($query);

1;
