Select Code to Download

1.  The first and second arguments are the list name (-name) and value
+s (-values).  As in the popup menu, the second argument should be an 
+array reference.

print scrolling_list('name', \@array);

my $data_dir = '/foo';
opendir(DIR, $data_dir)
...
my @files = grep { /data$/ && -f "$data_dir/$_" } readdir DIR;
closedir DIR;
print scrolling_list('name', \@files);