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

print $query->header;
print $query->start_html(-title=>'Oceanic 6');

@names = ("Jack", "Sawyer", "Freckles", "Ben", "Sun");

foreach $name (@names) {
  print "<BR>$name is not one of the Oceanic 6.";
}

@items = ("1. Who likes to give people sarcastic names?", "2. Who is pregnant?", "3. Who likes to play mindgames with people?");

$i = 0;

foreach $item (@items) {
  $i++;
  print "<BR><BR><BR>$item <BR><BR><INPUT TYPE=radio NAME=v0$i VALUE=1> Jack <BR><INPUT TYPE=radio NAME=v0$i VALUE=2> Sawyer<BR>	<INPUT TYPE=radio NAME=v0$i VALUE=3> Freckles <BR><INPUT TYPE=radio NAME=v0$i VALUE=4> Ben<BR><INPUT TYPE=radio NAME=v0$i VALUE=5> Sun";
}

print $query->end_html;