Select Code to Download

#!/usr/bin/perl -w

...

$template->param(datalist => \@datalist);
print $template->output();

<select name="xxxxx" size="4">
   <tmpl_if datalist>
...
      </tmpl_loop>
   </tmpl_if>
</select>