Select Code to Download

print $query->header, start_html, start_form,
...
my @answer = $query->param('list');
my $pet = $answer[0] || '';