#!/usr/bin/perl -w

use CGI;
use strict;

my $q = new CGI;

print $q->header;
print "$_<br>" foreach $q->param('box2');