use CGI;
use strict;
my $query = new CGI;

for (my $ii = 1; $ii<=2; $ii++)
{

print $query->header;

print $query->start_html('My scrolling_list.cgi program');

my @lang = (
                                           'Basic ',
                                           'C',
                                           'C++',
                                           'Cobol',
                                           'DHTML',
                                           'Fortran',
                                           'HTML',
                                           'Korn Shell (Unix)',
                                           'Perl Perl Perl Perl Perl Perl Perl Perl Perl Perl Perl Perl ',
                                           'Java',
                                           'JavaScript',
                                           'Python',
                                           'Tcl/Tk',
                                           'Visual Basic');


print $query->startform;
print $query->h3('Select your favorite programming language(s):');
print $query->scrolling_list(-name=>'languages',
                                 -values=>\@lang,
                                 -size=>8,
                                 -multiple=>'true'
);

print $query->br;
#print $query->submit(-value=>'Submit your favorite language(s)');
print $query->endform;

print $query->end_html;
}