sub print_page_x {
    my $page_number = $_[0];
    my $repeat = $_[1];
    my $q_number = 1;   
    open(INPUT, "$page_number.txt") or exit_nicely("Cannot open the questions file");
    print header;
    print start_html(-title => "Page $page_number"); #could have a better title
#    my $header = <INPUT>;
#    print h3("$header");
#    my $instructions = <INPUT>;
#    print p("$instructions");
    if ($repeat == 1)
    {
	print p('<b>Please ensure you answer all the questions</b>');
    }
    my $tmp = <INPUT>;
#    my @options = split(/,/, $tmp);
    
    my @numbers;
    for(my $i=1; $i <= $#options+1; $i++)
    {
	$numbers[$i-1] = $i;
    }

#    unshift @options, '';
 
    print start_table();
    print startform( -method => 'post',
		     -action => 'foo.cgi');
#    print start_Tr();
#    foreach (@options)
#    {
#	print th($_);
#    }
#    print end_Tr;
    while (<INPUT>)
    {
	print start_Tr();
	print td("$_");
 	foreach (@numbers)
 	{
 	    print start_td({-align => 'center'},"$_");
	    print radio_group( -name    => "$page_number.$q_number",
			       -value   => $_,
		               -default => '-',
		               -labels  => {$_ => ''});
 	    print end_td;
 	}
	print end_Tr;
	$q_number++;
    }
    print end_table;
    my $next_page = $page_number + 1;
    print "<input type='hidden' name='qs' value='$q_number-1'";
    print "<input type='hidden' name='page_number' value='$next_page'  />";
    #this is somewhat of a hack
    print submit( -name=>'submit',
		  -value=>'Submit');
    print end_form;
    print end_html;
}