#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

$v01= "<b>I like reading articles.</b>";
$v02= "<b>I like analyzing data.</b>";
$v03= "<b>I like writing manuscripts.</b>";

print $query->header;
print $query->start_html(-title=>'Do You Like to Research?');


print "<font face = verdana>";
print "<center><b>Do You Like to Research?</center></b><br><br>Please respond to the following statements. <BR><BR>";


@item = ("v01", "v02", "v03");

for($i = 0; $i <= 2; ++$i){
	$items= $item[$i];
print " $$items <br>";
print " <br>Strongly Disagree 
		<INPUT TYPE = radio NAME = $item[$i] VALUE = 1 >
		<INPUT TYPE = radio NAME = $item[$i] VALUE = 2 >
		<INPUT TYPE = radio NAME = $item[$i] VALUE = 3 >
		<INPUT TYPE = radio NAME = $item[$i] VALUE = 4 >
		<INPUT TYPE = radio NAME = $item[$i] VALUE = 5 >
	Strongly Agree <BR><BR>";
}

print "<input type = submit value = Submit Responses";
print "</form></font>";
print $query->end_html;