#!/usr/bin/perl -wT use strict; use CGI; my $cgi = new CGI; print "Content-Type: text/html; charset=UTF-8\n\n"; print "\n"; print "\n"; if ($cgi->param('relay-target-ids-for-event')) { print "\n"; } print "\n"; print "\n"; print "param('q')."\" />\n"; print "\n"; print "\n"; print "\n";