#!/usr/local/bin/perl  -w

use DBI;
use DBD::mysql;
use CGI qw(:standard);
$query = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my $JSCRIPT = <<EOF;

function doit(which){ //SETTING RADIO BUTTONS
    var num = 3; //NUMBER OF SUB-MENU'S TO SHOW/HIDE //;
    for(var count=1;count<=num;count++)\{
      var div = document.getElementById('subDiv'+count);
      if(count==which){ div.style.display = 'inline';}
        else{div.style.display = 'none';}
    }
}

EOF
; 
print $query->startform(-name=>'depts');


print  b("Choose the type of data:"),p;
…..
print "<label><input type='radio' name='RadioGroup1' value=1 onClick='doit(3)'>\n";
print "graphics</label>\n";                      
print "<span id='subDiv3' style='display:none'>\n"; #float:left with style, puts subgrp line below
print "<label><input type='radio' name='RadioGroup2' value='graphics7' onClick='pass(this.value)'>\n";
print "2007</label>\n";                          
print "<label><input type='radio' name='RadioGroup2' value='graphics8' onClick='pass(this.value)'>\n";
print "'08</label>\n";                           
print "<label><input type='radio' name='RadioGroup2' value='graphics9' onClick='pass(this.value)'>\n";
print "'09</label></span></div>\n"; 
…….
sqlQuery
my $mosyr_ref  = surveymos(\@dblist);
……..            
print h4(u('Survey Months with Violations:'),"&nbsp $mosyr[0]&nbsp $mosyr[1]"); #RESULTING DATA