file name: test2.html
#file name: test2.pl
use CGI qw(:standard);
print "Content-type:text/html\n\n";
@class= param('class');
print "";
foreach $a (@class)
{
print "$a
";
};
print <
EndForm
print "";
#file name: test3.pl
use CGI qw(:standard);
print "Content-type:text/html\n\n";
@class= param('class');
print "";
foreach $a (@class)
{
print "$a
";
};
print "";