#!/usr/local/bin/perl -wT use strict; require "/home/scsfac/downeyt/public/scripts/parse-lib.pl"; my %query = get_query(); my (%chosen, @team, @errors); @team = split("$;",$query{team}); foreach (@team) { $chosen{$_} = "selected"; } $chosen{$query{color}} = "checked"; if (scalar %query) { if (@errors = findErrors()) { # displayForm(@errors); } else { # displayThanks(); } } else { # displayForm(); } sub displayForm { my (@errors) = @_; print < Enter Data FORM if (@errors) { print "

$_\n"; } print "

\n"; } print < Full name:
Please select a color: Red Blue Green
Please choose one or more teams: END ; } sub displayThanks { print < Thanks

Thanks

THANKS ; }