Select Code to Download

    while (my @people = $sth->fetchrow_array()) {
        my $person = join ",", @people;
...
    }
    dienice("defined @temp_call_ids and @temp_trans_ids");