#!/usr/local/bin/perl -w use CGI; use DBI; my @teamOption= param ("teamOption"); print "Content-type: text/html\n\n"; print ""; print "\n"; # Print out a table of teams chosen print " \n"; print " \n"; print " \n"; print " \n"; for $team (@teamOption){ # Print row print " \n"; print " \n"; print " \n"; } print "

List of teams chosen
$team

"; print ""; print "";