use CGI;

sub do_work 
{
    my($query) = @_;
    my(@values,$key);

    print "<H2>Here are the current settings in this form</H2>";
    foreach $key ($query->param) 
    {        
        print "<STRONG>$key</STRONG> -> ";
        @values = $query->param($key);
        print  join(", ",@values),"<BR>\n";
    }       
}
	
my $query = new CGI;    
do_work($query);