Select Code to Download

my $sth = $dbh->prepare("SELECT foo,bar FROM baz");
$sth->execute;
...
  print join "\t", @row;
  print "\n";
}

my $sth = $dbh->prepare("SELECT foo,bar FROM baz");
$sth->execute;
...
}
print $query->scrolling_list(-name   => 'list_name',
                             -values => [@data]);