Select Code to Download

  print $q->scrolling_list(-name=>'acct_num',
                           -values=> [sort values %clients]
                           );

    $acct_num = (split/ \- /, $acct_num)[-1];