print $query->header, start_html, start_form,
  scrolling_list('name', \@names, $names[0]),
  submit,end_form;

my @answer = $query->param('list');
my $pet = $answer[0] || '';