# make %data

require Data::Dumper;
print $q->header;
print $q->escapeHTML(Dumper(\%data));
exit;